برای به دست آوردن نام فرم ها در دلفی از کد زیر می توان استفاده کرد
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for I:= 0 to Screen.CustomFormCount - 1 do
Memo1.Lines.Add(Screen.Forms[I].Caption);
end;
و برای نمایش ابجکتهای هر فرم از کد زیر :
var
i:integer;
begin
with Application do
for i:=0 to componentcount-1 do
if components[i] is TForm
then showmessage(components[i].Name);
end;