[pali4]

Хм.. ну вроде сделал все как ты сказал, но кучу ошибок

PHP код:

procedure ICQLogin;
begin
ICQ.SendMessage(989242);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to memo1.lines.Count-1 do
begin
ICQ:=TICQClient.Create(nil);
ICQ.Uin:= Copy(memo1.lines[i],1,pos(';',memo1.lines[i])-1);
ICQ.Password:=copy(memo1.Lines[i],pos('',memo1.Lines[i]+1,Lengt(memo1.lines[i]));
ICQ.Login();
ICQ.OnLogin:=ICQLogin;


end; 


Ошибки:
[Error] Unit1.pas(29): Undeclared identifier: 'ICQ'
[Error] Unit1.pas(29): Not enough actual parameters
[Error] Unit1.pas(37): Undeclared identifier: 'ICQ'
[Error] Unit1.pas(37): Missing operator or semicolon
[Error] Unit1.pas(38): Missing operator or semicolon
[Error] Unit1.pas(39): Missing operator or semicolon
[Error] Unit1.pas(39): Incompatible types: 'String' and 'Integer'
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(46): ';' expected but '.' found
[Error] Unit1.pas(48): Declaration expected but end of file found

И красное падает на

PHP код:

ICQ.SendMessage(989242); 


ЗЫ первый раз столько ошибок )