Zugriff auf zur Laufzeit erstellte TLabel aus DLL?

[DirkG]

Hallo DPler!

Ich habe in meinem Programm ein Panel auf dem mehrer zur Laufzeit erzeugte TLabel liegen. Nun soll die Caption der Label geändert werden. Dazu übergebe ich das Panel an die Funktion die das tun soll. Diese durchsucht es nach Controls vom Typ TLabel und prüft dann ob der Name des Label übereinstimmt um die Caption zu ändern...

Soweit die Theorie. In einer Unit funktioniert das ganze problemlos. Binde ich die Funktion in eine DLL ein, wird zwar das Panel durchsucht und die Controls werden der Reihe nach abgefragt, aber der Typcast (ich hoffe das ist die richtige Bezeichnung) funktioniert nicht mehr und die Caption wird nicht geändert.

Wo habe ich das Brett vor dem Kopf?

Delphi-Quellcode:

procedure ShowSingleData(ID: integer; var SingleData: TPanel); stdcall; export;
var i: integer; 
begin
  if (SingleData <> nil) and DBProjects.GetDS(ID, dllIbProjects.DSProject) then 
    for i:= 0 to SingleData.ControlCount-1 do 
      try
      if (SingleData.Controls[i] is TLabel) then begin // hier bricht in der dll die Verarbeitung ab
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField0' then 
          (SingleData.Controls[i] as TLabel).Caption := IntToStr(dllIbProjects.DSProject.ID);
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField1' then 
          (SingleData.Controls[i] as TLabel).Caption := dllIbProjects.DSProject.Caption;
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField2' then 
          (SingleData.Controls[i] as TLabel).Caption := DateToStr(dllIbProjects.DSProject.DateStart);
        if (SingleData.Controls[i] as TLabel).Name = 'dbfDatField3' then 
          (SingleData.Controls[i] as TLabel).Caption := DateToStr(dllIbProjects.DSProject.DateEnd);
      end;
    except; 
  end;
end;