в этом примере происходит поиск имени формы по ее заголовку

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
 i:integer;
begin
  for i := 0 to Screen.FormCount - 1 do
          if  Lowercase(Screen.Forms[i].Caption)= Lowercase('Вход') then 
               Form1.Edit1.Text:=Screen.Forms[i].name;
end;