Hvordan kan jeg bruge repeat over flere procedure ?

Her ses en knap, som sender et ping og lukker 2 programmer hvis der er modtaget noget på det afsendte ping. Mit spørgsmål er nu hvordan kan jeg få programmet til at blive ved med at pinge indtil at der er modtaget noget ?
Jeg har prøvet med repeat men det virker kun indenfor en procedure :-(

procedure TForm1.KnapClick(Sender: TObject);

var

  WindowInfo : TFindWindowStruct;

begin

  EnumWindows(@EnumWindowsProc, LongInt(@WindowInfo));

  ICMP.OnReply := ICMPReply;
  ICMP.ReceiveTimeout := 1000;
  Knap.Enabled := False; try
    ICMP.Host := edtHost.Text;
    ICMP.Ping;
  finally Knap.Enabled := True; end;


end;

procedure TForm1.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);

var
  search: string;
  search2: string;
  luk : HWND;

begin

    if (ReplyStatus.BytesReceived > 0) then
  search := edit1.Text;
  luk :=  FindWindow(nil, PChar(search));
  if SendMessage(ListBox1.Handle, lb_selectstring, - 1, Longint(PChar(search))) <> LB_ERR then
    SendMessage(luk, WM_SYSCOMMAND,SC_CLOSE,0);

  if (ReplyStatus.BytesReceived > 0) then
  search := edit2.Text;
  luk :=  FindWindow(nil, PChar(search));
  if SendMessage(ListBox1.Handle, lb_selectstring, - 1, Longint(PChar(search))) <> LB_ERR then
    SendMessage(luk, WM_SYSCOMMAND,SC_CLOSE,0);

end;