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.