Foros Club Delphi - No funciona Application.ProcessMessages

Hola a todos !

Recibo un buffer a través de un TServerSocket y lo escribo en un archivo, la tarea es realizada correctamente pero el programa no responde mientras está recibiendo.

Usando Application.ProcessMessages en un loop en el evento OnRead del clientsocket se me llena la pantalla de múltiples cuadros de mensajes con caracteres extraños (supongo que los caracteres son el buffer que está recibiendo el socket).

Ya probé poniendo Application.ProcessMessages en distintas partes del loop ¿hay alguna forma de hacer que Application.ProcessMessages cumpla su función en vez de tirar esos carteles?

Bueno... les dejo el código, ojalá me puedan ayudar porque estoy trabado con esto hace semanas y no termino de hacerlo andar. Saludos !!!

Código:

procedure TFrmMain.ServerSocketTransferClientRead(Sender: TObject;

  Socket: TCustomWinSocket);



var

  Data: string;

  Buffer: pchar;

  BinaryFile: file of char;

  BinaryFileSize, BytesRead: integer;

  Filename: string;



begin



  Filename:= 'c:\lala01.mp3';

  Idle(0);

  Data := Socket.ReceiveText;

  if Data <> '' then

  begin

    BinaryFileSize := StrToInt(Data);

    Idle(0);

    AssignFile(BinaryFile, FileName);

    ReWrite(BinaryFile);

    while FileSize(BinaryFile) < BinaryFileSize do

    begin

      Application.ProcessMessages;

      Sleep(1);

      BytesRead := Socket.ReceiveLength;

      if BytesRead > 0 then

      begin

        GetMem(Buffer, BytesRead);

        try

          Socket.ReceiveBuf(Buffer^, BytesRead);

          BlockWrite(BinaryFile, Buffer^, BytesRead);

        finally

          FreeMem(Buffer);

        end;

      end;

    end;

    CloseFile(BinaryFile);

  end;

end;

Así se ven los cuadros de mensaje que salen.