Влпросы по созданию чата

const  WM_NOTIFYTRAYICON = WM_USER + 1;
...
private  procedure WMTRAYICONNOTIFY(var Msg: TMessage); message WM_NOTIFYTRAYICON;
...
uses  ShellAPI;
 
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var  s: string;
begin
 case Msg.LParam of  
 WM_MOUSEMOVE:     s := 'Мышь сдвинута';    
WM_LBUTTONDOWN:   s := 'Левая кнопка нажата';    
WM_LBUTTONUP:     s := 'Левая кнопка отпущена';    
WM_LBUTTONDBLCLK: s := 'Два раза нажата левая кнопка';    
WM_RBUTTONDOWN:   s := 'Правая кнопка нажата';    
WM_RBUTTONUP:     s := 'Правая кнопка отпущена';    
WM_RBUTTONDBLCLK: s := 'Два раза нажата правая кнопка';    
else              
s := IntToStr(Msg.LParam);  
end;
 ListBox1.Items.Add(s);  
ListBox1.ItemIndex := ListBox1.Items.Count - 1;
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
var  tray: TNotifyIconData;  
Ic: TIcon;begin  
Ic := TIcon.Create;  
Ic.LoadFromFile('Icon1.ico');  
with tray do  
begin  
 cbSize := SizeOf(TNotifyIconData);  
 Wnd := Form1.Handle;    
uID := 1;  
 uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;  
 uCallBackMessage := WM_NOTIFYTRAYICON;    
hIcon := Ic.Handle;    
szTip := ('Это наша иконка');  
end;  
Shell_NotifyIcon(NIM_ADD, Addr(tray));  
Ic.Destroy;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var  tray: TNotifyIconData;
 Ic: TIcon;
begin  
Ic := TIcon.Create;
 Ic.LoadFromFile('Icon2.ico');
 with tray do  
begin    
cbSize := SizeOf(TNotifyIconData);    
Wnd := Form1.Handle;  
  uID := 1;    
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
 uCallBackMessage := WM_NOTIFYTRAYICON;    
hIcon := Ic.Handle;    
szTip := ('Это другая иконка');  
end;  
Shell_NotifyIcon(NIM_MODIFY, Addr(tray));
 Ic.Destroy;
end;
 
 
procedure TForm1.FormDestroy(Sender: TObject);
var  tray: TNotifyIconData;
begin  with tray do  
begin    
cbSize := SizeOf(TNotifyIconData);    
Wnd := Form1.Handle;    
uID := 1;  
end;  
 
Shell_NotifyIcon(NIM_DELETE, Addr(tray));
end;

uses ShlObj, ComObj, ActiveX;
 
  procedure CreateLink(const PathObj, PathLink, Desc, Param: string);
  var
    IObject: IUnknown;
    SLink: IShellLink;
    PFile: IPersistFile;
  begin
    IObject := CreateComObject(CLSID_ShellLink);
    SLink := IObject as IShellLink;
    PFile := IObject as IPersistFile;
    with SLink do begin
      SetArguments(PChar(Param));
      SetDescription(PChar(Desc));
      SetPath(PChar(PathObj));
    end;
    PFile.Save(PWChar(WideString(PathLink)), FALSE);
  end;

var
  FolderPath :string;

Registry := TRegistry.Create;
try
 Registry.RootKey := HKey_Current_User;
 Registry.OpenKey('Software\Microsoft\Windows\'+
  'CurrentVersion\Explorer\Shell Folders', False);
 FolderName := Registry.ReadString('Startup');
finally
 Registry.Free;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 s:String;
begin
   ......................
 s:= Socket.ReceiveText;
 ShowMessage(S);
   ......................
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
  .................................
clientsocket1.Address:=edit1.text;//Воодим IP другого компа
clientsocket1.active:=true;
s:=Memo1.Lines.CommaText; //Тут текст, который хотим отправить
clientsocket1.Socket.SendText(s); //Отправляем
clientsocket1.active:=false;
  ..................................
end;