[DLEPHI] problem z THGG.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    HGG1.Number := *****;
    HGG1.Password := '*******';
    HGG1.Host := HGG1.GetServerAddress;
    HGG1.Status := usAvailable;
    HGG1.connect;
end;

procedure TForm1.HGG1Connected(Sender: TObject);
begin
      HGG1.Description := 'Dziala!';
     HGG1.SendMessage(*******,'Wpis '+memo1.Text,[]);
     Memo1.Lines.Clear;
end;

Taki oto kod. Dlaczego łączy się z serwerem, ustawia opis, ale nie wysyla nic co jest zawarte w Memo1? W ogóle nic nie wysyła.