('Delphi 7 Уроки,поради,source code,програми.')

Описание

procedure TForm1.Button1Click(Sender: TObject); begin if TcpServer1.LocalHostAddr <>('127.0.0.1') then showmessage ('Hello internet') else showmessage ('Delphi 7 уроки,поради,source code,програми.') end; end.