Compiler-Warnung: ...ist möglicherweise nicht initialisiert

[Martin K]

Ja, das denk ich auch.
Also so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; Obj: TObject; 
begin
  Obj := nil; //<-- hier hinzugefügt
  for i:=0 to Memo1.Lines.Count-1 do 
  begin 
    if Memo1.Lines[i]='Parent' then 
      Obj:=Self
    else 
    if Memo1.Lines[i]<>'' then 
      Obj:=FindComponent(Memo1.Lines[i])
    else 
      Continue;
    if IsPublishedProp(Obj,'Font') then
      {...} 
  end; 
end;