Código Delphi
[-]
var
temp: String;
n:integer;
begin
comport1.ReadStr(temp,count);
for n := 0 to count-1 do
if ((temp[n]=#13) or (temp[n]=#10)) then
memo1.Lines.Add('');
else
memo1.Text:=memo1.Text+temp[i];
end;
Creo que con este código es suficiente.
Saludos