[Fairfox63]

Помогите переделать в форму.
написал в консоли, но надо перенести на форму.

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Sum,i,a:integer;
s:string;
function Even(K:integer):boolean;
begin
if K mod 2=0 then Even:=true
else Even:=false;
end;
begin
/////// основная программа /////////////
begin
sum:=0;
Writeln('vvedite 10 tselix chisel ');
for i:=1 to 10 do
begin
read(a);
if Even(a) then inc(sum);
end;
Writeln('Tsetnix chisel = ',Sum);
repeat
readln(s);
if s = ' ' then begin
end;
until s = 'exit'
end;
end.

[M.A.D.M.A.N.]

Повтор
http://www.delphisources.ru/forum/sh...ad.php?t=24580