String an procedure übergeben

[smartmod]

Hallo,

ich bin eher noch in den Anfängen der Delphi Programmierung und habe ein Problem:

Ich will in einer Listbox einen Log darstellen.
Gleichzeitig soll jedesmal, wenn der Listbox ein Eintrag hinzugefügt wurde, der Eintrag auch in ein Logfile geschrieben werden. Um mir da unnötig Zeilen zu ersparen, wollte ich das so machen:

Delphi-Quellcode:

function WriteLog(LogString: String): Integer;
var
  f: TextFile;
begin
 {$IOChecks OFF}
  AssignFile(f, ExtractFilePath(ParamStr(0))+LOGFILE);
  if FileExists(ExtractFilePath(ParamStr(0))+LOGFILE) then
    Append(f)
  else
    Rewrite(f);
  Writeln(f, LogString);
  CloseFile(f);
  result := GetLastError();
 {$IOCHECKS ON}
end;

procedure LBWrite(LogText: String);

begin
    Form1.ListBox1.Items.Add(DateToStr(Now)+' '+TimeToStr(Now)+': '+LogText);
    Form1.ListBox1.TopIndex := Form1.ListBox1.Items.Count-1;
    WriteLog(DateToStr(Now)+' '+TimeToStr(Now)+': '+LogText);
end;

Die Procedure möchte ich dann mit LBWrite('Das ist der Text, der reingeschrieben wird'); aufrufen.

Das geht aber irgendwie nicht. Weiß jemand Rat? Vielen Dank schonmal!