Se para al activarse el salvapantallas

[mosco]

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