Memo удаление строки...

[Sciv]

while i<Memo1.Lines.Count do begin
//В этом месте пишем Ваше разделение строки на до ":" и после
//В итоге получаем s
  if Length(s)<16
   then Memo1.Lines.Delete(i)
   else inc(i);
end;

[eval]

а вот предположим

Дальше только за деньги.

[Человек_Борща]

Аватар, я как-то про while и repeat забыл. Импровизировал с goto... придумал их аналог, ну или не совсем аналог