Fehler behandeln

[Martin W]

So... für alle gibt es hier noch mal die Lösung meines Problemes:

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
    on Error_Track: Exception do
      begin
        AddMessageToListbox(ListBox1, Error_Track.Message);
        AddMessageToListbox(ListBox1, Str0056);
        Result := False;
      end;
  end;
end;

Danke nochmal !!! Gruß
Martin W.