ServerSocket Prozeduren zuweisen

[Rastaman]

Ok ich hab schnell ne Form genommen und n client hingepflanzt der verbindet.
Passiert aber nichts ...
ich halte den Server so am Leben, vllt liegts daran ja:

Delphi-Quellcode:

  while True do
  begin                     //Endlosschleife die den Server am Leben hällt
    if Proceed = False then
      Exit;
  end;