Проблема с простейшим условием

[Kawun]

Добрый вечер. Есть небольшая проблема, задача уже написана, осталось прикрутить только одно условие.
Текст программы:

procedure TForm1.Button1Click(Sender: TObject);
Const
NMAX = 6;
Type
TMas = Array [1..NMAX] of Real;
Var
N: Integer;
B: Real;
P: Real;
C: Tmas;
A: Array [1..NMAX, 1..NMAX] of Real;
S: Real;
K: Integer;
I: Integer;
X: TMas;
begin
N:=StrToInt (EditN.Text);
If (N<1) Or (NMAX<N)
	Then
		ShowMessage('Ошибка!')
	Else
B:=StrToFloat (EditB.Text);
P:=StrToFloat (EditP.Text);
	For I:=1 To N Do
		For K:=1 To N Do
			Begin
				A[I,K]:=StrToFloat(StringGridA.cells [K-1, I-1]);
				C[I]:=StrToFloat(StringGridC.cells [0, I-1]);
			End;
		S:=0;
			For I:=1 To N Do
			S:= S + A [I, I];
				For I:=1 To N Do
					Begin
					X[I]:=1;
					For K:=1 To N Do
					X[I]:=(X[I])*(A[K,I]+C[K])/(B*(Sqr(K)));
					X[I]:=S*P*(X[I]);
					End;
					For I:=1 To N Do
					StringGridX.Cells[0, I-1]:=FloatTOStr(X[I]);
				end;
				end.

Как видно есть условие в тексте программы
If (N<1) Or (NMAX<N)

И к этому условию я еще добавил вот что:
If (N<1) Or (NMAX<N) Or (B=0)
Это я сделал для того, чтобы не было ошибки в этом месте:
X[I]:=(X[I])*(A[K,I]+C[K])/(B*(Sqr(K))); // (На ноль делить нельзя).

Программа компилируется, ввожу все данные и специально ввожу в B ноль. Жму на кнопочку чтобы все посчитало, а делфи вылетает со следующей ошибкой:
Project Project.exe raised exception class EZeroDivide with message 'Floating point division by zero'.

Уважаемые, прикрутите мне, пожалуйста, условие что если B=0 выводилось ShowMessage('Ошибка!').
Очень сильно жду помощи, завтра надо отчитаться по задачке =(
Спасибо!

[[Smarik]]

делфи всегда будет выкидывать при подобных ошибках, хоть try except допишите, попробуйте запустить exe файл программы, вот там должно все нормально обработать без ошибок винды

[Kawun]

запустил из exe - результат тот же при вводе нуля.

Причем эта часть условия If (N<1) Or (NMAX<N) работает как нужно. А вот на ноль - нет =(

[evg_m]

If (N<1) Or (NMAX<N)
	Then
		ShowMessage('Ошибка!')
	Else
B:=StrToFloat (EditB.Text);

судя по всему значение B определяется после проверки

[Kawun]

Спасибо, исправил. Переставил строчку с вводом B перед условием =)

begin
B:=StrToFloat (EditB.Text);
N:=StrToInt (EditN.Text);
If (N<1) Or (NMAX<N)
	Then
		ShowMessage('Ошибка!')
	Else
P:=StrToFloat (EditP.Text);

Теперь если B присвоить 0 вылетает сообщение 'Ошибка!'. Но работает не совсем правильно.
Вылетает 'Ошибка!', жму ок и следующее сообщение об ошибке:
Floating point division by zero

Видимо я как-то криво исправил =/

[rasmus_rasmus_87]

ПОСЛЕ ELSE BEGIN НУЖНО ДОПИСАТЬ ТАК КАК ELSE В ЭТОМ СЛУЧАЕ ТОК ДЛЯ СЛЕДУЮЩЕГО ОПЕРАТОРА РАБОТАЕТ)))

[rasmus_rasmus_87]

Else begin

P:=StrToFloat (EditP.Text);
For I:=1 To N Do
For K:=1 To N Do
Begin
A[I,K]:=StrToFloat(StringGridA.cells [K-1, I-1]);
C[i]:=StrToFloat(StringGridC.cells [0, I-1]);
End;
S:=0;
For I:=1 To N Do
S:= S + A [I, I];
For I:=1 To N Do
Begin
X[i]:=1;
For K:=1 To N Do
X[i]:=(X[i])*(A[K,I]+C[K])/(B*(Sqr(K)));
X[i]:=S*P*(X[i]);
End;
For I:=1 To N Do
StringGridX.Cells[0, I-1]:=FloatTOStr(X[i]);
end;
end;

[Kawun]

Всем спасибо, правда я не дождался последнего примера, сделал сам по другому, в общем вот так работает вроде))):

procedure TForm1.Button1Click(Sender: TObject);
Const
NMAX = 6;
Type
TMas = Array [1..NMAX] of Real;
Var
N: Integer;
B: Real;
P: Real;
C: Tmas;
A: Array [1..NMAX, 1..NMAX] of Real;
S: Real;
K: Integer;
I: Integer;
X: TMas;
begin
N:=StrToInt (EditN.Text);
P:=StrToFloat (EditP.Text);
B:=StrToFloat (EditB.Text);
If (N>1) and (NMAX>N) and (B<>0)
	Then
  begin
	For I:=1 To N Do
		For K:=1 To N Do
			Begin
				A[I,K]:=StrToFloat(StringGridA.cells [K-1, I-1]);
				C[I]:=StrToFloat(StringGridC.cells [0, I-1]);
			End;
		S:=0;
			For I:=1 To N Do
			S:= S + A [I, I];
				For I:=1 To N Do
					Begin
					X[I]:=1;
					For K:=1 To N Do
					X[I]:=(X[I])*(A[K,I]+C[K])/(B*(Sqr(K)));
					X[I]:=S*P*(X[I]);
					End;
					For I:=1 To N Do
					StringGridX.Cells[0, I-1]:=FloatTOStr(X[I]);
          end
          Else
	ShowMessage('Ошибка ввода!!! ');
end;
end.

Всем еще раз спасибо =)