объясните код

[BOBAH13]

Странные люди.. сети, api winsock... и так далее а вот тут и то сами понять не можете
Pos('\', AddressEdit.Text)

Ух ты сначала думал это нет уж...

InAddr.s addr := inet addr(PChar(AddressEdit.Text);

после этой строки вы ставите else так извените а зачем тогда заканчиваите код символом ; ?

[Rend1]

не надо обращать внимание на сам код он неполный весь не поместился а проблема в функции которая написана в самом низу и названа проблемной функцией ее надо написать и вызвать из procedure button1click но делфи говорит что не знает такой функции ее надо где-то прописать.где?пробовал в type тамже где процедура button1click не получается

[BOBAH13]

Она описана как функция класса TForm1 поэтому надо в директиве private или public класса TForm1 описать эту функцию как function LookupName: TInAddr; Или проблема еще в чем то ?

[Rend1]

да проблема в том что когда пытаюсь описать эту функцию то делфи требует заменить : на = а потом говорит что это неверно

[BOBAH13]

Мда... Человек слушай меня. Вы или дайте код с этой функцией и примером как Вы ее описываите, или я вам скажу что Вы не правы на 100% и ошибка Ваша полюбому, а дельфи говорит наверное что нехватает гдет :=, а у вас =. Но в Вашем случае можно только догадываться в чем может быть дело

[Stilet]

Ну показывай как пытаешся

[Rend1]

вот оно здесь

[BOBAH13]

Не ну это уже смешно ?! Я же писал уже ответ на ваш вопрос.. Соизвольте почитать внимательно посты. Все ответ уже дан.

[Rend1]

извиняюсь уже понял спасибо в public надо писать не TForm1.Look.... а просто Look...