Pascal - Send / Recv

Come faccio a creare un ciclo che aspetti finche la variabile non venga ricevuta.

Ho provato con

 
type 
Tmessaggio = record
 ....
end;

...

aperta:boolean;
err : longint;
min:tmessaggio

...

  repeat
   aperta := recv(S, min, sizeof(Tmessaggio),0) <> -1;
   err :=SocketError;
  until aperta  or (err <> EsockEINTR);

ma non funziona.

scusa ma ricevuta come?

Ci sarà un'altro programma che, ottenuto il messaggio <mout>, lo invierà trammite la socket <S> con send:

send(S, mout, sizeof(Tmessaggio),0)

il programma che riceve deve aspettare che l'atro invii la variabile e poi riceverla assegnandola a <min>:

recv(S, min, sizeof(Tmessaggio),0) <> -1; 

non so se ho capito bene,comunque l'algoritmo e'

ripeti fino a che valore variabile diverso da nulla