Zeilenumbruch in tmemo

[wol]

Problem beim speichern von memo.text in Variable.
type
datensatz=record
datum :TDate;
text :shortstring;
replay :array[0..2] of byte;
end;
var satz :array[1..10] of datensatz;
Problemcode:
***************
satz[m].text:=memo1.text;
***************
Wenn im memo kein Zeilenumbruch ist funktioniert es.
Wenn im memo Zeilenumbrüche sind wird mein text nicht richtig gespeichert.
Es wird der Nächste Datensatz (satz[m+1] ganz schrecklich überschrieben.

Ich habe auch schon versucht, das memo zeilenweise auszulesen und den zeilenumbruch von 'Hand' gemacht,
nutzt aber alles nicht's.