Ungültige Typenumwandlung bei Speichern-Abfrage

[Andreas L.]

Hi,
schaut euch bitte mal den folgenden Code an. In der gekennzeichneten Zeile meldet der Compiler: Ungültige Typenumwandlung...

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
 i : Integer;
begin
 if PageControl3.PageCount > 0 then
  begin
   for i:=0 to PageControl3.pagecount-1 do
    begin
     PageControl3.ActivePageIndex:=i;
  //in der nächsten Zeile kommt der fehler.......
     if MessageDlg('Möchten Sie das Dokument '+(PageControl3.ActivePage.Controls[0] as TTabSheet).caption+' speichern?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        begin
         if SaveDialog1.Execute then
          (PageControl3.ActivePage.Controls[0] as TSynEdit).Lines.SaveToFile(savedialog1.FileName);
        end;
    end;
 end;   
end;

Wo liegt mein Fehler?

Greetz und thx

[mischerr]

Müsste es nicht einfach

Code:

PageControl3.ActivePage.Caption

heissen? :gruebel:

Grüsse!

[Andreas L.]

Stimmt du hast recht. Danke für deine Hilfe ;-)