Let’s assume you’ve inherited this pretty useless code. procedure TForm125.Button1Click(Sender: TObject); var button: TButton; begin button := Sender as TButton; button.Caption := 'Working ...'; button.Enabled := false; Sleep(5000); button.Enabled := true; button.Caption := 'Done!'; ...
More...