Problem mit Threads

[Nightshade]

Delphi-Quellcode:

procedure TCalulateCheckSum.UpdateListItem1;
begin
  ListItem.SubItems[1] := 'Hashing...';
  ListItem.Update;
end;

procedure TCalulateCheckSum.UpdateListItem2;
begin
  ListItem.SubItems[1] := checksum;
  Form2.Checksumrunning := false;
  Form2.Timer1.Enabled := true;
end;