IdTCPClient  -> dTCPServer 로 파일을 보내는데...

서버가 파일을 받는 상태를 프레스바로 나타내려고 하는데..


어떻게 해야 될지 모르겠습니다.

알려주세요..

저는 현제 이렇게 코딩했습니다.
아래

procedure TfrmMain.S_ServerExecute(AThread: TIdPeerThread);
Var
   Cmd : String;
   FStream : TFileStream;
begin
     Cmd := AThread.Connection.ReadLn('',200);
     If Trim(Copy(Cmd,1,4))= 'SEND' then
     begin
          if Application.MessageBox('파일전송을 허락하시겠습니까','File전송',MB_ICONQUESTION or MB_YESNO) = IdYes then
          begin
              AThread.Connection.ReadLn('YES');
              if FileExists(Trim(Copy(Cmd,65,30))) then
                DeleteFile(Trim(Copy(Cmd,65,30)));
              FStream := TFileStream.Create(DownDir + Trim(Copy(Cmd,65,30)),fmCreate);
              AThread.Connection.ReadStream(FStream ,-1, True);
              FStream.Free;
          end;
     end
     else begin
          AThread.Connection.WriteLn('NO');
         //AThread.Connection.Disconnect;
     end;

end;