o Bota do GG pytania podstawowe.

Witam.
Robię bota do gg.
Przy stałym numerze i haśle program jako-tako działa. (Jeśli numer i hasło jest wpisane w source)
Ale jeśli chcę zrobić zmienne (wpisywanie do pól memo), to zaczynają się schody...
Mam dwa pola memo:
Memo2 do numeru
Memo3 do hasła

hgg1.number := strtoint (Memo2.Lines.Text);
hgg1.Password := Memo3.Lines.Text;

Tak wygląda kod memo

hgg1.Status:=usAvailable;
hgg1.connect;

A tak wygląda kod do przycisku "wyślij".
Czy ja coś robię źle ?

Drugie pytanie:
Działania bota mam zdeklarowane jako warunkowe (if wiadomość tratatatata then srutututu);
W tym problem, że po jednorazowej odpowiedzi, każda kolejna jest traktowana jak nieznana botowi.
Jeśli w if mam "czesc", to gdy napisze "czesc" po raz pierwszy, to bot odpowiada mi "siemka", lecz gdy drugi raz napisze "czesc", wtedy bot odpowiada mi "nieznany wyraz" itp.
Co jest przyczyną ? Jak poradzić sobie z tym problemem ?

Jesli codzi o 1 o wszytsko ok. Kod przcisku:
hgg1.number := strtoint (Memo1.Lines.Text);
hgg1.Password := Memo2.Lines.Text;
hgg1.Status:=usAvailable;
hgg1.connect;
Może zapomniałeś zmienic host na 217.17.45.147 . A z tym 2 nadal niewiem. Nie wiem czemu zanika procedura... to znaczy prcedura reagje, ale if nie działa.

Ale cos wyczasłem:
edit1.text := MessageContent;
if edit1.text = 'siema' then
HGG1.SendMessage(GGNumber, 'witaj',[]) ;

Musisz dac na forme edita..
Np:
edit1.text := MessageContent;
if edit1.text= 'siema' then
HGG1.SendMessage(GGNumber, 'witaj',[])
else
if edit1.text= 'jak sie masz' then
HGG1.SendMessage(GGNumber, 'spoko',[])
else
HGG1.SendMessage(GGNumber, 'Nie ma słowa w naszej bazie',[]) ;