Form zeigt sich zu spät

[mirage228]

Hi,

Du hast das "begin" und "end" um Deinen Anweisungsblock vergessen.

So gehts:

Delphi-Quellcode:

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

mfG
mirage228