procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := 'Hola Darkbyte' +chr(13);
label1.caption := label1.caption +'Como solo era una línea me pareció que no era necesario,' +chr(13);
label1.caption := label1.caption +'pero en realidad tienes razón porque queda mucho más claro.' +chr(13);
Label1.caption := label1.caption + 'Perdona por las molestias.)'+chr(13);
Label1.caption := label1.caption + 'A partir de ahora haré siempre bien los deberes 
'+chr(13)+chr(13);
label1.caption := label1.caption + 'Saludos'+chr(13);
label1.caption := label1.caption + 'Hogol'+chr(13);
end;