[Zazazu]

Сообщение от poli-smen

А какое окно не должно создаваться более одного раза? TFormInputData или TFormInput ?

Вот пример для TFormInputData:

Код:

var
  fr: TForm = nil;

procedure TForm1.ButtonImportFileClick(Sender: TObject);
begin
  // Если окно ещё не создано - создаём его
  if not Assigned(fr) then fr := TFormInputData.Create(Application);
  fr.Show;
end;

Аналогично и для TFormInputdata.

окно TFormInput не должно создаваться второй раз