function TFTPSend.StoreFile(const FileName: string; Restore: Boolean): Boolean;
var
  RestoreAt: int64;
begin
  .......
  Result := InternalStor('STOR ' + FileName, RestoreAt);
end;

function TFTPSend.InternalStor(const Command: string; RestoreAt: int64): Boolean;
begin
    ..........
    if (FTPCommand(Command) div 100) <> 1 then
    ..........
end

function TFTPSend.FTPCommand(const Value: string): integer;
begin
    ..........
  FSock.SendString(Value + CRLF);
    ..........
end;

procedure TBlockSocket.SendString(Data: AnsiString);
var
  buf: TMemory;
begin
  {$IFDEF CIL}
  buf := BytesOf(Data);
  {$ELSE}
  buf := Pointer(data);
  {$ENDIF}
  SendBuffer(buf, Length(Data));
end;

{$IFDEF UNICODE}
  {$WARN IMPLICIT_STRING_CAST OFF}
  {$WARN IMPLICIT_STRING_CAST_LOSS OFF}
{$ENDIF}

unit blcksock;

function TMyFTPSend.FTPCommand(const Value: string): integer;
var
  LVal: UTF8String;
begin
    ..........
  LVal := UTF8String(Value + CRLF);
  FSock.SendBuffer(LVal, Length(LVal));
    ..........
end;

function TMyFTPSend.FileSize(const AFileName: string): Int64;
begin
  Result := inherited FileSize(AFileName);
  // Bug fix for freeFTPd
  if Result <> -1 then
    FTPCommand('SIZE');
end;

function TMyFTPSend.StoreStream(const AFileName: string; AStream: TStream;
  ARestore: Boolean): Boolean;
var
  LDataStrm: TStream;
  LRemoteSize: Integer;
begin
  LDataStrm := FDataStream;
  FDataStream := AStream;
  try
    DirectFile := False;
    if ARestore and not FCanResume then begin
      LRemoteSize := Self.FileSize(AFileName);
      if LRemoteSize > 0 then
        Result := InternalStor('APPE '+ AFileName, LRemoteSize)
      else
        Result := StoreFile(AFileName, False);
    end else
      Result := StoreFile(AFileName, ARestore);
    // freeFTP bug fix
    if Result then begin
      LRemoteSize := Self.FileSize(AFileName);
      if LRemoteSize < AStream.Position then begin
        AStream.Position := LRemoteSize;
        FResultString := 'Invalid remote file size';
        Result := False;
      end;
    end;
  finally
    FDataStream := LDataStrm;
  end;
end;

if ARestore and not FCanResume then begin

 // костыль, который не помог