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