Fehler behandeln

[Martin W]

Hi;

Delphi-Quellcode:

function Tserver_mainform_form.CopyFile(AFileFrom: string; AFileTo: string): boolean;
var
  mem : TMemoryStream;
begin
  try
    if FileExists(AFileFrom) then
      begin
        mem := TMemoryStream.Create;
        try
          mem.LoadFromFile(AFileFrom);
          mem.SaveToFile(AFileTo);
        finally
          mem.Free;
        end;
      end;
    Result := True;
  except
    AddMessageToListbox(ListBox1, Str0056);
    Result := False;
  end;
end;

mal angenommen der Try Block produzierte ne Fehlermeldung... die wird ja wegen des Except Blocks nicht angezeigt.. wie kann ich sie trotzdem als String haben??

Gruß
MArtin W.