socket con lazarus

[didier]

Por favor quien me puede ayudar:
Tengo una aplicación (cliente) que me envía datos a través de un socket.
La aplicación servidor esta en delphi y funciona full de bien.
La estoy reconstruyendo en Lazarus con Linux.
Cuando activo el socket (idtcpserver) me arroja el siguiente error.

socket error # 98
address already in use

El código lazarus pascal es el siguiente:

procedure TfrmMainLog.FormShow(Sender: TObject);
begin
lv_LOGBuffer := '';
AbrirBD();
AplicarServer(True);
end;

procedure TfrmMainLog.AplicarServer(c_activar : boolean);
var
v_lst : TList;
v_i : integer;
begin
{log}
if c_activar then
begin
IdTCPServer1.Active := False;
IdTCPServer1.DefaultPort := 25534;
IdTCPServer1.Active := True;
end;
end;

procedure Tfrmmainlog.IdTCPServer1Connect(AContext: TIdContext);
begin
AContext.Connection.IOHandler.RecvBufferSize := 128 * 1024;
end;


procedure Tfrmmainlog.IdTCPServer1Execute(AContext: TIdContext);
begin
if AContext.Connection.Connected then
begin
lv_LOGBuffer := lv_LOGBuffer + AContext.Connection.IOHandler.ReadLn;
lv_cuentaSegsSinLog := 0;
ProcesaLOG();
end;
end;