Удалить нечетные числа в Memo

[manik136]

Помогите пожалуйста, уже 2 час бьюсь, ни как не получается.
Нужно в Memo1 вывести случайные числа и оставить только четные числа.
begin
for i := 0 to 5 do
begin
int := 100 + Random(1000);
if i mod 2 = 0
then Memo2.Lines.Delete(i);

Memo2.Lines.Add (IntToStr (int));
end;
end;

[manik136]

Все доперло:
begin
memo2.Clear;
for i := 1 to 10 do
begin
int := 100 + Random(1000);
if int mod 2 = 0 then Memo2.Lines.Add (IntToStr (int));
end;
end;