Endnu en gang HJÆLP TIL DELPHI...HASTER

Hej eksperter!
Jeg har 1 opgave og 1 spm.
Spørgsmål 1:
Jeg har følgende kode..:
var
tabsheet : Ttabsheet;
memo : tmemo;
begin
if opendialog1. then
TabSheet := TTabSheet.Create(self);

    tabsheet.PageControl := pagecontrol1;

      tabsheet.caption := extractfilename(opendialog1.FileName);
      memo :=tmemo.create(self);

      with memo do

      begin
      parent := tabsheet;
      Align := alclient;


      memo.Lines.loadfromfile(opendialog1.FileName);

        end;
Den (som du nok kan se) opretter et Memo i en PageControl. Men men men...Hvis du trykker cancel i "OpenDialog1" kommer den med en fejl. Hvordan rettes det?

Opgave 1:
I min HTML editor (som jeg er igang med at lave) skal man kunne trykke close, close all, save, save all. Du ved vel selv hvad funktionerne gør...ikk'?

+-+-+-+-+-+-+-+-+
Det var det :) Håber du vil hjælpe og at det er forklaret godt nok...

MVH
Mr.Meincke