Du liest alles ein, bis du auf die Zeichen #13#10 triffst, also z.B. so:
Code:
function GetFirstLine(BigString: String): String;
var
a: LongInt;
begin
a := 1;
Result := '';
while a <= Length(BigString) do
begin
if BigString[a] <> #13 then Result := Result + BigString[a]
else if BigString[a+1] = #10 then break;
Inc(a);
end;
end;
Ist getestet, sollte funktionieren.
Nachtrag: Du kannst das ganze natürlich auch in ein TStrings-Feld kopieren, aber das ist dann ja auch nicht anders als beim Memo, nur dass man es nicht auf der Oberfläche sieht.