procedure TFrmBlowFish.Wait(time: word);
var Start: Integer;
begin
  Start := GetTickCount;
  while GetTickCount - Start <= time do
    application.ProcessMessages;
end;

procedure TFrmBlowFish.FrmBlowFishOnShow( Sender : TObject );
var I : integer;
begin
  for I := 0 to mm_projekt.Lines.Count do
    verschluesseln(mm_projekt.Lines.Strings[I]);
    aktuelle_zeile.Caption := IntToStr(I);
    Application.ProcessMessages;
    Wait(30);
end;