Найти наименьшее четное число

procedure TForm1.Button1Click(Sender: TObject);
var
j,k,min:Integer;
begin
Randomize;      //генератор случайных чисел
for j:=0 to stringgrid1.colcount do
for k:=0 to stringgrid1.rowCount do
stringgrid1.cells[j,k]:=Inttostr(random(111)-65);
min:=45;      //Ищем минимальный элемент
for j:=0 to stringgrid1.colcount do
for k:=0 to stringgrid1.rowCount do
if stringgrid1.cells[j,k]<IntTostr(min) then
min:=StrToInt(stringgrid1.cells[j,k]);
label1.Caption:='Наименьший элемент массива:'+IntToStr(min);
end;

var a:integer;
...
for k:=0 to stringgrid1.rowCount do begin
a:=strtoint(stringgrid1.cells[j,k]);
if (a<min) and (a mod 2 = 0) then min:=a;
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
j,k,min,a:Integer;
begin
min:=45; //Ищем минимальный элемент
Randomize;      //генератор случайных чисел
for j:=0 to stringgrid1.colcount do
for k:=0 to stringgrid1.rowCount do
begin
a:=random(111)-65;
stringgrid1.cells[j,k]:=Inttostr(a);
if (a<min) and (a mod 2 = 0) then min:=a;
end;
label1.Caption:='Наименьший элемент массива:'+IntToStr(min);
end;