Mem linie jak to jest?

Mam problem powiedzmy ze mam pętle:
var
i:integer;
Begin
for i := 0 to spinedit1.value do
begin
memo1.lines.add('jakis tekst');
end;

Linia dodaje się ale na końcu memo, jak zrobić aby linie doddawały się o miejca w którym jest kursor w dół?

Memo1.Lines.Insert(Memo1.CaretPos.Y,'text');