procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  Button1.Height:=20; Button1.Width:=40; Button1.Caption:='Work'
end;