Button ü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;