Вызов формы по условию и добавление строк

[bagfinder]

Есть условие. И если вводимые данные корректные, то ок.
Иначе выводится форма form3.
Сделал через form3.Label1.Caption:='lol'
И не правильно. Окно не вылетает.
Вот процедура:

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

image1.Canvas.Brush.Color:=clWhite;
image1.Canvas.rectangle(0,0,image1.Width,image1.Height);

x1:=10;
y1:=10;
x2:=320;
y2:=470;
x3:=630;
y3:=10;

image1.Canvas.CleanupInstance;
image1.Canvas.rectangle(0,0,640,480);
if spinedit1.value >0 then
begin
Finalage:=Spinedit1.Value;
Tris(0,x1,y1,x2,y2,x3,y3);
end


else begin
Form3.Label1.Caption:='lol'
      end;

end;

Подскажите, как правильно это сделать?

[W0LF]

else begin
Form3.Show; //сначала надо показать форму, или я не понял?
Form3.Label1.Caption:='lol'
      end;
end;

[bagfinder]

Form3.Show; //сначала надо показать форму, или я не понял?

Да, я дурак, забыл про это.
Кстати, имеет смысл использовать ShowModal?

[mihali4]

Если вам нужно будет переключаться между формами - просто SHOW, а если нужно сделать активной единственную форму - SHOWMODAL.

[bagfinder]

Еще вопрос - Spinedit по-умолчанию integer? Как сделать шаг в 0,5, например?

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

писать свой компонент или искать готовый.