92
procedure CheckBox2Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure Connected2Click(Sender: TObject);
private
{ Private declarations }
public
procedure wait_1();
procedure panele_false();
procedure refresh_app();
procedure refresh_basic();
procedure refresh_advanced();
procedure refresh_stat();
procedure wait(ms: integer);
function HexToBin(Hexadecimal: string): string;
function BinToInt(Value: String): LongInt;
function find_str(substr: String; str: string) : String;
{ Public declarations }
end;
var
Form1: TForm1;
login, photo, servo, serv, rst, command_ok : Integer;
pswd : string;
implementation
{$R *.dfm}
procedure TForm1.wait_1();
Comentarios a estos manuales