[NumLock]

Код:

var
  s: String;
  a: array of String[6];
  i: Integer;
begin
  s:=LE_Source.Text;
  while (Length(s) mod 6)<>0 do s:=s+'=';
  SetLength(a, Length(s) div 6);
  for i:=0 to Length(a)-1 do
    a[i]:=Copy(s, i*6, 6);
  LE_Result.Text:=a[Length(a)-1];
end;