Problem mit Thread [erledigt]

[SleepyMaster]

Eleganter wäre es z.B. so:

Delphi-Quellcode:

function Thread(p:pointer):DWORD;
begin
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
end;

procedure TForm1Create(Sender:TObject);
var
  ThreadID: cardinal;
  hThread: THandle;
begin
hThread:=BeginThread(0, nil, @Thread, pointer(self), 0, ThreadID);
if hThread <> INVALID_HANDLE_VALUE then
  CloseHandle(hThread);
end;

Habs per Hand hierein geschrieben (Kein Delphi installiert momentan) also auchtung wegen Fehlern