Non è ben chiaro ciò che intendi fare, ad ogni modo credo che tu debba separare ogni elemento ottenendo:
- una stringa costante o letterale con il testo del pulsante;
- una variabile intera per il conteggio dei clic;
- una routine di gestione del click che incrementi il contatore e aggiorni la caption.
Nella sezione implementation della form, ad esempio, potresti aggiungere una variabile intera per il conteggio dei clic e una costante per la visualizzazione del testo:
codice:
const
BtnText = 'Ciao - premuto: ';
var
Counter: Integer;
La routine di gestione del clic sul pulsante sarà pressapoco così:
codice:
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(Counter);
Button1.Caption := BtnText + IntToStr(Counter);
end;
Ciao!