Me gusta lo del Thread pero realmente no logro hacerlo, no se donde debo meterlo.
Código:
procedure TSecuenciador.dxButton2Click(Sender: TObject);
var MiTHread:TTHread;
w,x:integer;
begin
if CheckBox1.Chequed=True //opcion de infinito o por bucles
then begin
//bucle infinito
end
else begin
x:=StrToInt(SpinEdit1.Text);
//bucle por ciclos
repeat
for w:=0 to ADOQuery1.RecordCount-1 do
begin
//mis sentencias.....
end;
x:=x-1;
until x=0;
end;
end;
Gracias por la ayuda.
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;