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!'; end;
Now, your boss says, you have to make it parallel so the user can start three copies of it. (You also have to add two new buttons to the form to start those instances but that’s easy to do.)