[stil]

Код:

var i,j,l:integer;
    s:string;
begin
memo1.Font.Name:='Courier';
memo1.Clear;
memo1.Lines.Add(Edit1.Text);
l:=Length(Edit1.Text);
j:=l-1;
s:='';
for i:=2 to l-1 do s:=s+' ';
for i:=2 to l-1 do begin
  memo1.Lines.Add(Edit1.Text[i]+s+Edit1.Text[j]);
  Dec(j);
end;
for i:=l downto 1 do
  memo1.Lines.Strings[l-1]:=memo1.Lines.Strings[l-1]+Edit1.Text[i];