Forms Delphi

var
I: Integer;
begin
for I := 0 to Screen.CustomFormCount-1 do
ListBox1.Items.Add(Screen.CustomForms[I].Name);
end;