[РЕШЕНО] Помогите в чем может быть ошибка? Ошибка ';' expected but 'BEGIN' found

[АлександрDelphi]

Screenshot_1.png
[Error] Unit1.pas(402): ';' expected but 'BEGIN' found
[Ошибка] Unit1.pas (402): ';' как ожидается, но 'BEGIN' найдено
Не понятно что за ошибка вроде бы все правильно!
Помогите буду очень благодарен !

Решение в следующем сообщении

[Вадим Мошев]

Точку с запятой после Block: string поставить забыли.
Вам же написано:

[Error] Unit1.pas(402): ';' expected but 'BEGIN' found

Ожидал точку с запятой, а наткнулся на BEGIN.

И, кстати, мне интересно, зачем у вас Block объявлен, как string, где максимальная длина - 255 символов, если вы туда помещаете результат работы метода get компонента idHTTP, что существенно будет превышать этот объём?

[Пепел Феникса]

как string, где максимальная длина - 255 символов

и давно в Делфи строки ограничили?
в паскале да, в Делфи нет.(ShortString старый паскалевский тип)

[Вадим Мошев]

Значит, ошибся...

[АлександрDelphi]

Сообщение от Вадим Мошев

Точку с запятой после Block: string поставить забыли.
Вам же написано:

Ожидал точку с запятой, а наткнулся на BEGIN.

И, кстати, мне интересно, зачем у вас Block объявлен, как string, где максимальная длина - 255 символов, если вы туда помещаете результат работы метода get компонента idHTTP, что существенно будет превышать этот объём?

Cпасибо!

[АлександрDelphi]

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.закрывалась ;
 Form3. открывалась;
end;

А то у меня получается так

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form3.ShowModal; 
end;

[Iron Monk]

Как в процедуре закрытия формы вы пытаетесь её активировать?

[АлександрDelphi]

Сообщение от Iron Monk

Как в процедуре закрытия формы вы пытаетесь её активировать?

Я уже разобрался )