почему событие buttonclic происходит после второго клика?

[brutalis]

почему событие buttonclic происходит после второго клика? т.е. при нажатии на кнопку в memo должна выводится информация, но memo заполняется только после 2 клика

[Larboss]

Не хочу говорить банальную фразу "Телепатов на форуме нет", но сказал. Код предоставить надо бы.

[brutalis]

вот прога со всеми вытикающими))

[brutalis]

всем спс. нашел ошибку. сначала вызывал процедуру , а потом присваивал значение.

[Larboss]

procedure TForm1.Button2Click(Sender: TObject);
begin
  oblst := 'Белгородская область'; { область/грай }
  Application.ProcessMessages();
  yar;
  data;
  zag;
  oblast;
  vis := true;

  // 1991

  ZE := '';
  { зерновая емкость } VS := ''; { Валовый сбор }
  PP := '';
  { посевная пощадь } UR := ''; { урожайность }
  // 2009
  ZE1 := '';
  { зерновая емкость } VS1 := ''; { Валовый сбор }
  PP1 := '';
  { посевная пощадь } UR1 := ''; { урожайность }
  // 2020
  ZE2 := '';
  { зерновая емкость } VS2 := ''; { Валовый сбор }
  PP2 := '';
  { посевная пощадь } UR2 := ''; { урожайность }
end;

Вот так будет работать как надо. Ваша ошибка в том, что присваиваете свойству Text пустую строку oblst, т.к. само присвоение oblst идет ниже, после вызова процедуры присвоения.