Discupe Casimiro, por mi falta de detalles, bajo mi ignorancia pensé que no hacia falta ser más explícito. A continuación pongo el bucle que comenté arriba. Es el bucle del que se sale cuando salta el salvapantallas de windows. Espero que alguien me pueda ayudar.
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Enabled:=False;
Button2.Enabled:=False;
try
repeat
Application.ProcessMessages;
Memo1.Clear;
BorraBuffer;
EnviaDatos('....');
RecibeDatos;
if DatosConConexion = 0 then break;
Memo1.Font.Size:= 300;
Memo1.Lines.Text := IntToStr(FuerzaSenial);
sleep(500);
until (Button3.Tag = 1) or (Button4.Tag = 1);
Memo1.Clear;
Memo1.Font.Size:= 10;
Button1.Enabled:=True;
Button2.Enabled:=True;
Button3.Tag:= 0;
Button4.Tag:= 0;
except
end;
end;
Gracias