Bien ese era el problema por el cual en la ventana no se podia interactuar pero cuando ejecuto la creación en esta función siguo con el mismo problema
Código Delphi
[-]procedure TForm1.EscuchadorAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
con:TFormCOnv;
dato:String ;
i,op: Integer;
begin
op:=0;
dato:=ClientSocket.Receiveln();
if (dato<>'') then
begin
if conversaciones.Count>0 then
begin
showmessage('Hay una iwal');
for i:=0 to conversaciones.Count do
if CompareStr(conversaciones.Strings[i],dato)=0 then op:=1;
end;
end;
if op=0 then begin
Button3.Click; end;
Escuchador.Active:=True;
end;
Seguramente la función esta sea de coña. Se admiten consejos jaja