Create von TLabel funktioniert nicht

[Dragon27]

Hallo,

habe heute folgenden Code ausprobiert, doch leider wird mir auf dem definierten Form das Label nicht angezeigt

Wisst Ihr warum?

Delphi-Quellcode:

var 
    Status:TForm;
    Progress:TJvXPProgressBar;
    anzeige:TLabel;
begin

status:=Tform.Create(nil);
with status do begin
  Position:=poScreencenter;
  width:=385;
  Height:=89;
  color:=clwhite;
  Formstyle:=fsstayontop;
  BorderStyle:=bstoolwindow;
  BorderIcons:=[];
  show;
end;

anzeige:=Tlabel.create(Status);

with anzeige do begin
  Left:=8;
  Top:=9;
  Caption:='Bitte warten... Vorgang wird initialisiert';
  show;
  anzeige.Repaint;
end;

Danke!