Manipulando exceções em Delphi 4.0

exceptionSample2.pas

procedure TForm1.FormCreate(Sender: TObject);
var
  Buffer : Pointer;
begin
  Buffer := AllocMem(1024);
  try
    { Codigo que pode gerar uma excecao }
  finally
    FreeMem(Buffer);
  end;
end;

{ Ou ainda }

procedure TForm1.TratarExcecao(Sender : TObject; E : Exception);
begin
   { Codigo para tratar a excecao }
end;