Buton üzerine çok satırlı yazı yazma

procedure TForm1.Button1Click(Sender: TObject);
  var i : integer;
  begin
  i:=GetWindowLong(Button1.Handle,GWL_STYLE );
  SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE);
  Button1.Caption := 'sat?r1'#13#10'sat?r2';
end;