Подправить Edit

[t10yj]

Добрый день. Помогите исправить, пытаюсь присвоить
a b c к edit. Чтобы пользователь набирал в edit число.
И программа считывала значения из Text компанента Edit.

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c:integer;
    begin
A:=Edit1.Text;
B:=Edit2.Text;
C:=Edit3.Text;

if 
((A mod 2 = 0) and (B mod 2 = 0)
and (C mod 2 = 0)) or ((A mod 2 <> 0)
and (B mod 2 <> 0) and (C mod 2 <> 0))
then 
ShowMessage('1') 
else  
ShowMessage('0');
end;

end.

[Serge_Bliznykov]

в Edit.Text - строка, а в переменной - число,
нужно просто перевести из строкового представления в числовое:

A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
C:=StrToInt(Edit3.Text);

p.s. это без проверки содержимого Edit'ов.
если там будут запись не числа или записано не целочисленное значение,
то будет ошибка при выполнении данного кода (после нажатия на Button1)

[t10yj]

Сообщение от Serge_Bliznykov

в Edit.Text - строка, а в переменной - число,
нужно просто перевести из строкового представления в числовое:

A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
C:=StrToInt(Edit3.Text);

p.s. это без проверки содержимого Edit'ов.
если там будут запись не числа или записано не целочисленное значение,
то будет ошибка при выполнении данного кода (после нажатия на Button1)

Спасибо!