program Projectflood;
{$APPTYPE CONSOLE}
uses SysUtils,  Windows,  Messages, Controls;
  var ButtonWnd:array[1..10] of integer;
    i, k, raz, w8:integer;
    msg:string;
     KeeperWnd:HWND;
begin
      if (FindWindow(0, 'SEChat 4.0.11Beta')<>0 ) then
begin
  writeln('Sechat naiden....');

   KeeperWnd:=FindWindow(0, 'SEChat 4.0.11Beta');
     ButtonWnd[1]:=GetWindow(KeeperWnd, gw_Child);
       for i:=2 to 7 do
           begin
        ButtonWnd[i]:= GetWindow(ButtonWnd[i-1],gw_HWNDNext);
                end;
                writeln('Vvedite Soobschnie'); readln(msg);
                 writeln('skolko raz ?');    readln(raz);
                  writeln('c kakoy zaderzhkoi otpravlyaT ? ( 0 - bez zaderzhki) v millesekundax');
                   readln(w8);
                      for k:= 1 to raz do  begin
SendMessage(buttonWnd[2], WM_SETTEXT ,0, LParam(PCHAR(msg)));
SendMessage(buttonWnd[1], WM_KEYDOWN,  VK_RETURN ,  0 );

   if (w8 > 0) then
   sleep(w8)

   end;
   end
   else writeln('sechat ne nayden');
   sleep(2000);
   end.