im Form ein EditFeld defieren (Name zB edCounter), dann edCounter Text 0 zuweisen und Event OnKeyPress verwenden:
Code: Alles auswählen
procedure TForm1.edCounterKeyPress(Sender: TObject; var Key: char);
begin
Key := #0;
edCounter.Text := IntToStr(StrToInt(edCounter.Text) + 1);
end;
Rob