[DarkMan]

Ya te vale. Te respondí la solución en un hilo anterior.

Código Delphi [-]
procedure TForm.Timer1Timer(Sender: TObject);
begin
    WriteByte($400001, StrToInt('$' + Edit1.Text));
end;