начел писать программу но куча ошибок было часть исправил щяс не знаю что делать застрял на
IbAddConnect.Items.Add(Athread.Connection.Binding. PeerIP);


procedure TForm1.ServerConnect(AThread: TIdPeerThread);
begin
IbAddConnect.Items.Add('vnimaniya, obnarujen connect:');
IbAddConnect.Items.Add(Athread.Connection.Binding. PeerIP);

end;

написанно

[Error] unitserver.pas(63): Undeclared identifier: 'Binding'
[Error] unitserver.pas(63): 'END' expected but ')' found
[Error] unitserver.pas(68): Undeclared identifier: 'TClipboard'
[Error] unitserver.pas(71): Missing operator or semicolon
[Error] unitserver.pas(72): Missing operator or semicolon
[Error] unitserver.pas(78): Record, object or class type required
[Warning] unitserver.pas(83): Text after final 'END.' - ignored by compiler
[Fatal Error] Project1.dpr(5): Could not compile used unit 'unitserver.pas'


код программы

unit unitserver;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer,
IdHTTPServer, ComCtrls, Menus, StdCtrls;

type
TForm1 = class(TForm)
IbAddConnect: TListBox;
MMenu: TMainMenu;
ClickMenu: TPopupMenu;
Status: TStatusBar;
Server: TIdHTTPServer;
N1: TMenuItem;
mStart: TMenuItem;
mStop: TMenuItem;
Close: TMenuItem;
cmCopy: TMenuItem;
cmClearAll: TMenuItem;
procedure mStartClick(Sender: TObject);
procedure mStopClick(Sender: TObject);
procedure ServerConnect(AThread: TIdPeerThread);
procedure cmCopyClick(Sender: TObject);
procedure cmClearAllClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.mStartClick(Sender: TObject);
begin
Server.Active:=True;
IbAddConnect.Items.Add('Server On'+FormatDateTime('hh.mm.ss',now));
Status.Panels[0].Text:='Monitor ne rabotaet';
mStart.Enabled:=True;
mStop.Enabled:=False;
end;

procedure TForm1.mStopClick(Sender: TObject);
begin
Server.Active:=False;
IbAddConnect.Items.Add('Server Ostanovlen'+FormatDateTime('hh.mm.ss',now));
Status.Panels[0].Text:='Monitor ne rabotaet';
mStart.Enabled:=True;
mStop.Enabled:=False;
end;

procedure TForm1.ServerConnect(AThread: TIdPeerThread);
begin
IbAddConnect.Items.Add('vnimaniya, obnarujen connect:');
IbAddConnect.Items.Add(Athread.Connection.Binding. PeerIP);

end;

procedure TForm1.cmCopyClick(Sender: TObject);
var Bo: TClipboard;
begin
{kopiryem v byfer obmena}
Bo:=TClipboard.Create;
Bo.SetTextBuf(pchar(IbAddConnect.Items.Strings[IbAddConnect.ItemIndex]));

end;

procedure TForm1.cmClearAllClick(Sender: TObject);
begin
IbAddConnect.ItemHeight.Clear;
end;

end.

end;

end.