var
ss,s1,s2,s3 : string;
begin
s1 := '1';
s2 := '2';
s3 := '3';
ss := s1 + #13#10 + s2  + #13#10 + s3;
memo1.Lines.Add(ss);
.... или
memo1.Lines.Add(s1);
memo1.Lines.Add(s2);
memo1.Lines.Add(s3);