procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Linea 1'+Chr(10)+'Linea 2'+Chr(10)+'Linea 3');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
lf:String;
begin
lf:=Chr(10);
ShowMessage('Linea 1'+lf+'Linea 2'+lf+'Linea 3');
end;