TPanel caption verschwindet

[kingmarv]

Hi

Wenn ich nen Panel mit nem Caption anzeigen will geht es komischerweise nicht überall.
Das Panel lasse ich erscheinen währen in der Datenbank ausgewertet wird.

Code:

procedure showpanel();
begin
form1.panel1.Visible:=true;
form1.panel1.caption:='Spieltag wird ausgewertet.....';
end;

Wenn ich ihn so aufrufe funktioniert es wunderbar:

Code:

procedure TForm1.Button10Click(Sender: TObject);
begin
showpanel;
end;

Rufe ich ihn allerdings mitten in anderen Code aus zeigt er zwar den gelben Panel an aber keine caption ? Woran liegt das ?

z.B

Code:

begin
showpanel;
 List:=TStringlist.create;
rs := TFileStream.Create('info.txt', fmcreate or fmShareCompat);
IdHTTP1.Get('http://bltippspiel.spacequadrat.de/info.txt', rs);
IdHTTP1.Disconnect;
rs.free;
List.LoadFromFile('info.txt');

Danke im vorraus