var
 x : integer;
begin
 for x := 0 to memo1.Lines.Count-1 do
 begin
  case length(memo1.Lines.Strings[x]) of
    4:memo2.lines.add(memo1.Lines.Strings[x]);
    5:memo3.lines.add(memo1.Lines.Strings[x]);
    6:memo4.lines.add(memo1.Lines.Strings[x]);
    7:memo5.lines.add(memo1.Lines.Strings[x]);
    8:memo6.lines.add(memo1.Lines.Strings[x]);
    9:memo7.lines.add(memo1.Lines.Strings[x]);
  end;
 end;
end;