procedure TForm1.Button2Click(Sender: TObject);begin TButton(Sender).Caption := 'This text and'#10'this text on a new'#10'line';end;
procedure TForm1.Button2Click(Sender: TObject);begin TButton(Sender).Caption := 'This text and'+LineEnding+'this text on a new'+LineEnding+'line';end;