Foros Club Delphi - Correcion de codigo

Hola , este es un codigo que hice para poder conectarme a cualquier servidor y poder mandar peticiones , en este caso lo estoy usando para conectarme a una pagina web , pero no entiendo porque cuando me conecto a mi servidor http usando xampp , al mandar la tipica peticion head,options o get el codigo no me devuelve ningun resultado.

Código:

unit http;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls, ScktComp;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Button2: TButton;

    Button3: TButton;

    StatusBar1: TStatusBar;

    ClientSocket1: TClientSocket;

    procedure ClientSocket1Connect(Sender: TObject;

      Socket: TCustomWinSocket);



    procedure ClientSocket1Disconnect(Sender: TObject;

      Socket: TCustomWinSocket);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;

      ErrorEvent: TErrorEvent; var ErrorCode: Integer);

    procedure FormKeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button3Click(Sender: TObject);

    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}





procedure TForm1.ClientSocket1Connect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

StatusBar1.SimpleText:='[+] Status : Connect';

Button1.Caption:='Disconnect';

end;



procedure TForm1.ClientSocket1Disconnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin

StatusBar1.SimpleText:='[+] Status : Offline';

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

if ClientSocket1.Active then

begin

Button1.Caption:='Connect';

ClientSocket1.Active:=False;

end

else

begin

ClientSocket1.Host:=Edit1.Text;

ClientSocket1.Port:=StrToInt(Edit2.Text);

ClientSocket1.Active:=True;

end;

end;



procedure TForm1.ClientSocket1Error(Sender: TObject;

  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;

  var ErrorCode: Integer);

begin

ErrorCode:=0;

StatusBar1.SimpleText:='[+] Error connecting';

end;





procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

Memo1.Lines.Add('>'+Edit3.Text);

Memo1.Lines.Add('');

ClientSocket1.Socket.SendText(Edit3.Text);

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

Memo1.Lines.Add('>'+Edit3.Text);

Memo1.Lines.Add('');

ClientSocket1.Socket.SendText(Edit3.Text);

end;



procedure TForm1.ClientSocket1Read(Sender: TObject;

  Socket: TCustomWinSocket);

var rta:string;

begin

rta:=Socket.ReceiveText;

Memo1.Lines.Add(rta);

end;



end.

Alguien me podria ayudar o explicar como soluciono esto.