Memo, перенос строк

[Dominatorsha]

проблема в том что мемо переносит строки, вот код

var
  Form1: TForm1;
  d : TextFile;
  s:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

 AssignFile(d, 'file.txt');
append(d);
    s:=memo2.Text+':'+Memo3.Text;
WriteLn(d,S);
CloseFile(d);
end;

Например в Memo2 пишу Вася, ниже Пупкин
а в мемо2 пишу Живет ниже в лесу
Должно получиться так:
----------------
Вася : Живет
Пупкин : В лесу
----------------
НО получается так:
---------------
Вася
Пупкин :Живет
В лесу
---------------
Что сделать чтоб было в виде
Строчка1:Тут
Строчка2:там
Строчка3:влесу

[Stilet]

Правильно так не получится ))))

for i:=0 to Memo2.Lines.Count-1 do begin
 append(d);
 s:=memo2.Lines[i]+':'+Memo3.Lines[i]; 
 WriteLn(d,S);
end;

Учитывая что В Мемах одинаковое кол-во строк.

[Dominatorsha]

Теперь только по 1 строчке передает
Memo1:Memo2
и все.
А должно
Memo1:Memo2
дыц:куку
Ололо:пыщпыщ
Я криворукая скотина каюсь

[Stilet]

Вупс....

append(d);
for i:=0 to Memo2.Lines.Count-1 do begin

Недоглядел

Я криворукая скотина каюсь

На сей раз это про меня... Спать хоцца, вот и туплю, погода давит

[NAS1977mu]

Может пригодиться! У объекта Memo в Properties есть WordWrap установите False - получите запрет переноса в строке.