Prozedur warten lassen

[Pseudemys Nelsoni]

Moin,

ich bin gerade dabei eine DLL zu schreiben. Die Funktion, die durch ein Programm aufgerufen wird soll etwas von google zurückgeben, das heisst ich Öffne dort eine Socket-Verbindung. Das Problem ist nun, wie lass ich die Funktion warten bis ein Ergebnis (OnRead vom ClientSocket) ausgelöst wird?
So sollte das ablaufen:

Delphi-Quellcode:

function AufzurufendeFunktion: Integer;
begin
  Result := 0;
  // Socket-Verbindung öffnen
  // Warten bis Ergebnis da ist
end; 

procedure Socket.OnRead;
begin
  Socket.ReceiveText;
  // Ergebnis ist da
end;

Nur wie setze ich das Warten um?