[poli-smen]

Сообщение от Zazazu

вот программный код

Мой вариант кода работает - второе окно TFormInputData не создаётся - проверил.
Скорее всего ты не полностью мой код скопировал или вставил. Вот вырезка реализации модуля Unit1 с моим кодом:

Код:

.....
implementation

uses
  Unit2, Unit3;

{$R *.dfm}

var
  fr: TForm = nil;

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

end.