function TfrmTest.SQLUPLOAD : Boolean;
// 파일을 Client 'c:data' directory에서 서버로 UPLOAD하는 Function입니다.
var
  LocalFile, RemoteFile : String;
  F : File of Byte;
  FSize : Integer;
begin
  ftpSql.Vendor   := NMOS_AUTO;
  ftpSql.Host     := 'xxx.xxx.xxx.xxx';
  ftpSql.UserID   := 'aaa';
  ftpSql.Password := 'aaa123';
  ftpSql.Port     := 21;

  if edCUS_GID.Visible = False Then
  begin
    LocalFile := 'C:DATA' + 'file';
    RemoteFile := 'file';
  end;

//  if ftpSql.Connected then ftpSql.DisConnect;

  try
    if ftpSql.Connected then ftpSql.DisConnect;
    ftpSql.Connect;
//    ftpSql.Mode(MODE_ASCII);
    ftpSql.ChangeDir('/files');
  except
    Application.MessageBox('서버에 접속하는 동안 오류가 발생하였습니다.'+#13+
                           '시스템 관리자에게 문의하세요!', '서버접속중 SOCKET통신 오류', mb_ok);
  end;
  try
    AssignFile(F, LocalFile); // 파일의 포인터 정의
    Reset(F);                 // 파일을 여는 데 읽기용도로 연다.
    FSize := FileSize(F);
    CloseFile(F);
    ftpSql.Allocate(FSize);
    ftpSql.Upload(LocalFile, RemoteFile);
    Result := True;
    Application.MessageBox('서버에 UPLOAD OK', mb_ok);
  except
    Application.MessageBox('서버에 UPLOAD하는동안 오류가 발생.'+#13+
    '다시한번 잘 해봐요!', '파일 UPLOADING중 SOCKET통신 오류', mb_ok);
    Result := False;
  end;

  if ftpSql.Connected then ftpSql.DisConnect;
end;