hjælp til internetside ting

Håber dette lille eksempel kan give dig lidt inspiration:
Lav en ny app med et TMemo og en TClientSocket.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ClientSocket1: TClientSocket;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormShow(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
    tstr: string;
begin
    tstr := socket.ReceiveText;
    memo1.Text := memo1.Text + tstr;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    ClientSocket1.Host := 'www.google.com';
    ClientSocket1.Port := 80;
    ClientSocket1.Active := true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    ClientSocket1.Socket.SendText('GET / HTTP/1.0' + #13 + #10 + #13 + #10);
end;

genialt, det var det jeg sq bruge. Kunne bare ikke få de der sockets til at virke. Takker :)