Presentar numeros en una venta flotante

[ecfisa]

Hola wcbs.

puedes por favor tu de comprimir me en un archivo rar ese último ejemplo que me pusiste

Te lo voy a deber en .RAR por que uso WinZip, pero creo lo podes abir con WinRar.

El ejemplo del CounterEnter que me hiciste como yo lo puedo en ves de hacerlo con la tecla enter hacerlo por ejemplo con la tecla ¨A¨ y que el conteo se quede marcado y que cuando presione solo la tecla ¨X¨ el conteo se ponga el cero asta esperar de nuevo contar la cantidad de veces de presionar la tecla ¨A¨

Si no te entiendo mal sería:

Código Delphi [-]
implementation

var
  ContadorDeAes: Integer = 0;  // (si queres podes dejar 'ContadorDeEnter')

...

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Upcase(Key) of
    'A': begin
           Inc(ContadorDeAes);
           StaticText1.Caption:= IntToStr(ContadorDeAes);
           TS.Add(StaticText1.Caption);
         end;
    'X': ContadorDeAes:= 0;
  end;
end;
...

Saludos.