Вопрос Delphi. Почему не работает программа?

[zasranec12]

var
k,x,m,i:integer;
n,q:string;
v:real;
begin
k:=memo1.lines.count;
for i:=1 to (k-1) do
val(memo1.lines,x);
If (x mod 2=0) then
begin
m:=x*2;
q:=inttostr(m);
memo2.lines.insert(i,q);
end
else
begin
v:=x/2;
n:=floattostr(v);
memo3.lines.insert(i,n);
end;
end;

Четные числа первого поля нужно увеличить вдвое и перенести во второе поле, а нечетные уменьшить вдвое и перенести в третье.