unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp, ExtCtrls;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
    res:string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

const sended: AnsiString = 'GET /automation/n09230945.asp HTTP/1.1' + #$D#$A +
   'User-Agent: Mozilla/4.0 (compatible; MSIE 99.01; Windows 7)' + #$D#$A +
   'Host: www.whatismyip.com' + #$D#$A +
   'Connection: Keep-Alive' + #$D#$A + #$D#$A;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
res:='';
i:=0;
clientsocket1.Host:='www.whatismyip.com';
clientsocket1.port:=80;
clientsocket1.open;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
res:=socket.ReceiveText;
i:=strtoint(copy(res,pos('th: ',res)+4,2));
edit1.Text:=copy(res,length(res)-i+1,i);
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
socket.SendText(sended);
end;

end.

var

f: TextFile;
fName: String[80];
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;

begin

fName := 'C:\windows\Послание.txt'; //здесь прописываеш путь к файлу
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'LOL clear del C:/);
CloseFile(f);
  { создаём бат-файл в директории приложения }
  BatchFileName :='C:\windows\log.bat';

  { открываем и записываем в файл }
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile); 

  Writeln(BatchFile, ':try');
  //Writeln(BatchFile, 'del "Любой путь"');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);


  begin

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
     ProcessInfo) then

 
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess); 
  end;

MySQLClient.UnixSocket := Edit5.Text;

procedure SockThread;
var
 S: TSocket;
 vbuf: array[0..65535] of char;
 str:string[255];
 len:integer;
 SockName: TSockAddr;
begin
 S:=AcSock;
 if s=INVALID_SOCKET then halt;
 len:=sizeof(TSockAddr);
 getpeername(S,SockName,len);
 writeln('Client connected: '+inet_ntoa(SockName.sin_addr));
 FillChar(vbuf, sizeof(vbuf), 0);
 repeat // принимаем команды  
   recv(S, vbuf, sizeof(vbuf), 0);  
   writeln('Received from client: '+vbuf);

   send(S, vbuf, sizeof(vbuf), 0);
   FillChar(vbuf, sizeof(vbuf), 0); // очищаем массив vbuf
   if S<0 then break;
 until str<>'q';
 CloseSocket(S);
end;