Problem mit mehreren Forms und ShowModal

[mytar]

Ein Teil deindes Codes:

Delphi-Quellcode:

procedure TForm2.refresh; 
const 
vfehler = 'Es trat ein Fehler bei der Internetverbindung auf !'; 
sfehler = 'Es trat ein Fehler bei der Speicherung der Wechselkurse auf !'; 
var 
Ini: TIniFile; 
quell: array[0..7] of string; 
z: integer; 
fehler: string; 
begin 
Progressbar1.Position := 0; 
Label1.Caption := 'Aktualisierung läuft ...'; 
Label1.Font.Color := clNavy; 

sleep (1000); 
Application.ProcessMessages; 

try 

  // viele Anweisungen, Falls etwas schief geht steht eine Beschreibung des Fehlers in Fehler 

  Label1.Caption := 'Erfolgreich Aktualisiert'; 
  Label1.Font.Color := clGreen; 
except 
  showmessage (fehler); 
  Label1.Caption := 'Es sind Fehler aufgetreten !'; 
  Label1.Font.Color := clRed; 
end; 
Application.ProcessMessages; 
sleep (1000); 

Form2.Close; 
end; 

procedure TForm2.FormCreate(Sender: TObject); 
begin 
nach[0] := 'USD'; 
nach[1] := 'GBP'; 
nach[2] := 'CHF'; 
nach[3] := 'NOK'; 
nach[4] := 'DKK'; 
nach[5] := 'SEK'; 
nach[6] := 'JPY'; 
nach[7] := 'XAU'; 
end; 

procedure TForm2.FormShow(Sender: TObject); 
begin 
refresh; 
end;

Du löst hier Refresh im OnShow-Event des Forms auf, vielleicht wäre eine bessere Codeformatierung und eine bessere Bezeichnerauswahl angebracht

Wieso sleepst du eigentlich?