Var
i:Integer; 
wsin,wsout:WideString;
Begin
wsout:='';
For i:=0 to Memo1.Lines.Count-1 do
   Begin
   wsin:=Memo1.Lines[i];
   For j:=1 to Length(wsin) do
      Begin
      wsout:=wsout wsin[j];
      if Length(wsout)>=2 then
         Begin
         Memo2.Lines.Add(wsout);
         wsout:=wsin[j];
         End;
      End;
   End;
End;