Meine Zwischenablage:

if i = 0 then
begin
ShowMessage('Ungültiger Wert!');
Form2.Show := TRUE;
end;
end.