Frage zu Memo-Funktionsweise

[fragme]

Hi,

kann mir einer sagen warum das hier nicht funktioniert:

Delphi-Quellcode:

procedure TForm1.EditAlarmChange(Sender: TObject);
var MemoText: String;
begin
  if StringGrid.Cells[0,1] = DateToStr(Date) then
  begin
    if StringGrid.Cells[1,1] = copy(LabelUhr.Caption,1,5) then
    begin
      Datei := StringGrid.Cells[2,1];
      MemoText := DateTimeToStr(Date + Time);
      Memo.Lines.Strings[MemoLine] := MemoText;
      MemoLine := MemoLine +1;
      if Datei <> '' then begin
        ShellExecute(Application.Handle, 'open', PChar(Datei), nil, nil, SW_NORMAL);
        MemoText := ' - ' + Datei + ' wird ausgeführt';
        Memo.Lines.Strings[MemoLine] := MemoText;
        MemoLine := MemoLine +1;
      end;
      Text := StringGrid.Cells[3,1];
      if Text <> '' then begin
        showmessage(Text);
        MemoText := ' - ' + Text + ' angezeigt';
        Memo.Lines.Strings[MemoLine] := MemoText;
        MemoLine := MemoLine +1;
      end;
    end;
  end;
end;

Das Ergebnis sieht so aus:

17.01.2005 07:38:00
- F:\- Eigene Dateien -\Delphi\Taskplaner\Nero.exe wird ausgeführt

THX
fragme