Sockets Java-Delphi-Java

public class SocketServer {
	
	static int c = 0;

	public static void main(String[] args) {
		ServerSocket s = null;
		
		try {
			s = new ServerSocket(5432);
		} catch (IOException e) {
			e.printStackTrace();
		}
		
		while (true) {
			try {
				Socket s1 = s.accept();
				c++;
				System.out.println("Conexão estabelecida: " + c);
				OutputStream s1out = s1.getOutputStream();
				DataOutputStream dos = new DataOutputStream(s1out);
				dos.writeUTF("Mensagem do Servidor Java!");
				dos.close();
				s1.close();	
			} catch (IOException e1) {
				e1.printStackTrace();
			}
		}	
	}
}

public class SocketClient {
	public static void main(String[] args) {
		try {
			System.out.println("Abrindo Socket...");
			Socket s1 = new Socket("127.0.0.1", 5432);
			InputStream is = s1.getInputStream();
			DataInputStream dis = new DataInputStream(is);
			System.out.println("Servidor: " + dis.readUTF());
			dis.close();
			s1.close();	
			System.out.println("Fechando Socket");										 
		} catch (ConnectException connExc) {
			System.out.println("Não foi possível conectar o servidor");
		} catch (IOException e) {
			e.printStackTrace();
		}
	}
}

procedure TForm1.Button6Click(Sender: TObject);
var
  Stream : TWinSocketStream;
  Buffer : array[0 .. 14] of Char;
  s: string;
begin
  while cs.Socket.Connected do
  begin
    try
      Stream := TWinSocketStream.Create(cs.Socket, 60000);
      try
        FillChar(buffer, 15, ' '); { initialize the buffer }
        if Stream.WaitForData(3000) then
        begin
          if Stream.Read(buffer, 15 ) = 0 then
            cs.Socket.Close;
          s:= buffer;
          lbx.items.add(s);
        end
        else
          cs.Socket.Close;
      finally
        Stream.Free;
      end;
    except
      Showmessage('erro');
    end;
  end;