RichEdit.Invalidate при появлении формы

[Gigatrop]

Здравствуйте.
Мне необходимо сразу обновлять компонент, но
как запретить обновление, если форма еще не отобразилась?
Другими словами, нужно обновить RichEdit сразу как только я увижу на экране форму после запуска приложения, иначе до появления выкидывает ошибку

[Neeter]

Обновляйте в onShow формы.

[uberchel]

А так ?

procedure TForm1.FormActivate(Sender: TObject);
begin
with RichEdit1 do begin
Update; Refresh;
end;
end;

[Gigatrop]

Я не так выразился. У меня программа еще до появления должна несколько раз повторять фрагмент кода, в котором должен быть invalidate, но работать он должен только если форма РЕАЛЬНО видна. Вот как проверить реальность видимости, а не просто пользоваться OnShow или Visible.

[Neeter]

if Form1.Showing then

Или просто:

if Form1.Visible then