Код:
var
i : Integer;
begin
i := StrToInt(Edit2.Text); {номер, который надо удалять }
while Memo2.Lines.Count > 1 do begin
Memo2.Lines.Delete(i-1); {строки в мемо индексируются с нуля}
Inc(i, StrToInt(Edit2.Text) - 1); {следующий удаляемый элемент}
i := i mod Memo2.Lines.Count; {если забрались за границу мемо}
if i = 0 then i := Memo2.Lines.Count; {под удаление попадает последний элемент}
вот все! всем спасибо за помощь!!