TICQClient в Delphi 7

[Человек_Борща]

актуально, дайте кто не будь код

А толку вам от него?
На

Copy(Str,1,Pos(';',Str)-1); //UIN
Delete(Str,1,Pos(';',Str));  //Temporary removing UIN
Copy(Str,1,Length(Str)); //pass

Теперь ваша очередь:
1. разобраться в чем тут дело
2. Вставить в свою программу.
3. PROFIT!

Подсказки: Copy, использовать цикл for, использовать TStringList

Это не форум готового кода и ответов на задачи. И таких форумов нет вообще.
Помочь здесь, вам помогут. Вопрос в другом: Станут ли делать это за наглость, хамство, неуважение и попрошайничество?

Если нет желания самому разбираться и решать свои же проблемы, то лучше вообще не беритесь за программирование, оно не для вас.

Раздел получения готовых кодов и программ, называется "Фриланс".