Как организовать цикл ?

[Sibedir]

Вопрос №1:
FormAVvodD - является автоматически создаваемой формой?

Вопрос №2:
Зачем в цикле стоит

FormAVvodD.Show;

Получается вы хотите показать форму и выполнить FormAVvodD.Button1Click, в котором она закрывается? Короче, хотите чтоб она моргала?

Вопрос №3:
Как в FormAVvodD.Edit3.Text оказывается нужное вам значение? Наверное есть обработчики событий OnChange для Edit1 и Edit2?

Замечание

procedure TFormAVvodD.Button1Click(Sender: TObject);
begin
A2[inn,jmm] := StrToFloat(Edit3.Text) ;
FormAVvodD.Close;
end;

inn,jmm - это ж локальные переменные TGlavnForm.Menu21Click, а вы их используете в TFormAVvodD.Button1Click.
Может так:

procedure TFormAVvodD.Button1Click(Sender: TObject);
begin
A2[StrToInt(Edit1.Text),StrToInt(Edit2.Text)] := StrToFloat(Edit3.Text) ;
FormAVvodD.Close;
end;

P.S.:
Вообще, не проще ли сделать без использования формы

for jmm := 1 to Ma do
  for inn := 1 to Na do
    A2[inn,jmm] := MyFunc (inn, jmm);

[Nikmichsch]

Виталий! Спасибо за разъяснения. Я сделал, как Вы советовали, и почти всё получилось. Кроме того, что: вторая форма, в которой я хочу производить разные действия, открывается как бы не полностью. Вместо кнопок на ней - пустые места. И полностью она открывается только при выходе из цикла. Видимо, я чего-то не понимаю. Компиляция проходит нормально, ошибки не выдаются.
С уважением и благодарностью.
Nikmichsch

[Sibedir]

Попробуйте после Show поставить

  Application.ProcessMessages;

[Nikmichsch]

Поставил. Окно открывается отлично, но оно оказывается в неактивном состоянии, и я в нём работать не могу. Как его активизировать в процессе работы программы ?
С уважением и благодарностью.
Nikmichsch.

[veniside]

ProcessMessages() надо вызывать периодически внутри цикла, чтобы дать возможность окнам обработать полученные сообщения.

[Sibedir]

и я в нём работать не могу. Как его активизировать в процессе работы программы ?

Чаво, чаво?!!
Вы же сами его в цикле, то открываете, то закрываете. Как вы с ним работать собрались?

Уважаемый Nikmichsch, еще раз перечитайте мой пост #11 и ответте наконец: Зачем вам нужно в цикле открывать форму, загонять значения в эдиты, читать значение из эдита и закрывать форму? Что вы пытаетесь сделать? У вас что, форма вместо функции что-ли?

[Nikmichsch]

Уважаемые коллеги ! Существуют ли процедуры или функции, позволяющие мне в процессе выполнения программы останавливать её в нужном мне месте ?
С благодарностью.
Nikmichsch.

[Sibedir]

Что значит "останавливать"?
Например процедура sleep позволяет остановить программу на указанное кол-во миллисекунд. Но что вам это даст?

Nikmichsch, читаем здесь и задаем вопрос еще раз.

[Stilet]

Nikmichsch

Да. Останавливать для чего?

[Nikmichsch]

За ответы - спасибо.
Мне хотелось бы сделать так: чтобы программа в цикле останавливалась, например, после открытия формы (окна), чтобы я мог в этом окне выполнять нужные мне действия - нажимать кнопки, вводить данные с помощью однострочного редактора, контролировать и корректировать данные и пр. И потом (по моей команде) чтобы окно закрывалось и программа продолжала работать, выполняя следующий цикл.
Так, как меня научил Виталий ( Stilet. #2,#6 ), я сделал. Всё было бы отлично, если бы я мог, как в режиме отладки (с помощью токи прерывания) останавливать программу. Может быть, я многого хочу ?
С благодарностью за долготерпение.
Nikmichsch