dateiname:=s.strings[n];
  tEncrypt := TEncryptionThread.Create(true);
  tEncrypt.Suspended:=True;
  tEncrypt.OnFertig:=ThreadFertig;
  tEncrypt.Priority := tpNormal;
  tEncrypt.FreeOnTerminate := true;
  tEncrypt.fInFileName := dateiname;
  memo1.lines.add('thread:' +dateiname);
  tEncrypt.fPassphrase := g_key;
  tEncrypt.Resume;

procedure TEncryptionThread.execute;
var
  DCPCipher: TDCP_blowfish;
  source, dest: TFileStream;
  temp:string;
begin
  temp:='_tmp';
  RenameFile(fInFileName,fInFileName+temp);
  dest := TFileStream.Create(fInFileName, fmCreate);
  fInFileName:=fInFileName+temp;
  source := TFileStream.Create(fInFileName, fmOpenRead);
  DCPCipher := TDCP_blowfish.Create(nil);
  DCPCipher.InitStr(fPassphrase, TDCP_sha512);
  DCPCipher.EncryptStream(source, dest, source.size);
  DCPCipher.Burn;
  dest.Free;
  source.Free;
  DeleteFile(fInFileName);
  FreeAndNil(DCPCipher);
  if Assigned(OnFertig) then OnFertig(Self);
end;

procedure TfrmMain.ThreadFertig(Sender: TObject);
begin
tEncrypt.terminate;
if tEncrypt.Terminated then begin
  inc(x);
  ppercent:=Trunc(x/pmax*100);
  ProgressBar.Position:=ppercent;
  Application.ProcessMessages;
end;

end;