Tausend Dank an euch beide!!!
Beide Versionen Funktionieren nun!
Delphi-Quellcode:
var
parentForm: TControl;
begin
parentForm := self.Parent;
while not (parentForm is TForm) do
parentForm := parentForm.Parent;
(parentForm as TForm).caption := 'test erfolgreich';
end;
und
ValidParentForm(self).caption := 'test erfolgreich';
Also nochmal Danke für eure Hilfsbereitschaft!
Viele Grüße
TRBB