1:
2:
3:
4:
5:
6:
7:
8:

Hans Wurst
Gertenstr. 6
11111 Wursthausen

12.07. 13:00 aaa
12.07. 13.15 bbb
12.07. 13.30 ccc
13.07. 14.45 ddd					

1:
2:
3:
4:
5:

Datum,Uhrzeit,Typ
12.07.,13:00,aaa
12.07.,13.15,bbb
12.07.,13.30,ccc
13.07.,14.45,ddd					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

uses StrUtils;

var a: TStringList;
    i: Integer;
begin
    a:=TStringList.Create;
    for i:=4 to Memo1.Lines.Count-1 do
        a.Items.Add(AnsiReplaceStr(Memo1.Lines[i],' ',';'));
    a.SaveToFile(...);
    a.Free;
end;