Прошу помоч мне с компиляцией

[dolphin705]

procedure TForm1.Button2Click(Sender: TObject);
begin
if not ICQCLient1.LoggedIn then
MessageDlg('Соединение с сервером не установлено!',mtInformation,[mbOk],0)
else
begin
rec := False;
ICQCLient1.Disconnect;
Memo1.Lines.Add('Соединение с сервером оборвано.');
Timer1.Enabled := False;
end;
end;

Вот что пишет компилятор
Компиляция
[Ошибка] Unit1.pas(61): Statement expected but 'PROCEDURE' found
[Ошибка] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.ICQClient1MessageRecv'
[Фатальная Ошибка] Project2.dpr(5): Could not compile used unit 'Unit1.pas'


Компиляция
[Ошибка] Unit1.pas(61): Утверждение ожидало но 'ПРОЦЕДУРА обнаруживала
[Ошибка] Unit1.pas(20): Неудовлетворенный форвард или внешняя декларация: 'TForm1.ICQClient1MessageRecv
[Фатальная Ошибка] Project2.dpr(5): не Могло компилировать использованное устройство 'Unit1.pas

[puporev]

[Ошибка] Unit1.pas(20): Unsatisfied forward or external declaration: 'TForm1.ICQClient1MessageRecv'

Процедура объявлена, но не описана. Если не нужна, удалите.

[Ошибка] Unit1.pas(61): Statement expected but 'PROCEDURE' found

Видимо до этого еще описана процедура и нет в конце end;

[dolphin705]

Спасибо,всё помогло.