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