1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit Unit8;
interface
uses
  Classes {$IFDEF MSWINDOWS} , Windows {$ENDIF};
type
  Upload1 = class(TThread)
  protected
    procedure Execute; override;
    procedure UpdateStatusBar;
  end;
implementation
uses Unit1;
function ExecuteScript(script: string):Boolean;
var Paramstring : string;
begin
Paramstring := 'ini='+WinSCPIni+'WinSCP.ini /log='+ScriptFolder+'\logfile1.txt' +' /script='+Script;
if ShellExecute_AndWait('open',PChar(WinSCPEx), Paramstring, ScriptFolder, SW_SHOWNORMAL, true) >=0 then
result := true;
end;
procedure Upload1.UpdateStatusBar;
begin
  Form1.StatusBar1.SimpleText := 'Upload der Zeitungsbox erfolgreich.';
end;
procedure Upload1.Execute;
var MyScript : string;
begin
  NameThreadForDebugging('Upload1Name');
  { Thread-Code hier einfügen }
  MyScript := ScriptFolder+'\upload.txt';
 if ExecuteScript(MyScript) then
   Synchronize(UpdateStatusBar);
end;
end.

1:
2:

Uploader1 := Upload1.Create(False);
Uploader1.FreeOnTerminate := true;