1:
2:
3:
4:

procedure erzeuge5mb();   // 5 MB Datei erzeugen für den Upload
begin
 ShellExecute(Application.Handle, 'open', 'fsutil', 'file createnew 5242880 5242880', nil, SW_HIDE);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button11Click(Sender: TObject);
begin
 if FileExists('5242880') then begin                 // wenn Datei 5242880 existiert...
  // GetFileSize('5242880');        // Funktionsaufruf um Dateigröße zu überprüfen
  Form1.http://FTP.Put('5242880', '5242880', true);    // Upload 5 MB
  end  // end FileExist
   else begin                                           // sonst
    erzeuge5mb();                                // erzeuge sie vor dem Upload
    Form1.Timer5MB.Enabled:=true;     // Timer2 starten und weitere Anweisungen in TForm1.Timer5MB
   end // end else begin
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Timer5MBTimer(Sender: TObject);
begin
 t5:=t5+1;
  if t5=5 then begin    // Timer5 soll 5 Sekunden laufen
   // GetFileSize('5242880');        // Funktionsaufruf
   Form1.http://FTP.Put('5242880', '5242880', true);    // Upload 5 MB
   Form1.Timer5MB.Enabled:=false;    // Timer5 beenden
   t5:=1;  // Timer5 zurücksetzen
   end  // end if t=5
   else
    //nichts
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

function GetFileSize(const FileName:string):Int64;
var
  FileStream:TFileStream;
begin
  FileStream:=TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
   try
    Result:=FileStream.Size;
   except
    Result:=0;
   end;
  finally
   FileStream.Free;
   // Meldung und ggf. Uploadwunsch abbrechen
  end;
end;                    

1:
2:
3:
4:
5:
6:

fs:= TFileStream.Create(Dateiname, fmCreate);
try
  fs.Size:= 5*1024*1024;
finally
  fs.Free;
end;