ayuda con un salto de línea que no me funciona!!! por favor!!!

[yusnerqui]

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