1:
2:
3:
4:
5:
6:

EditAusgabe.Text:='';
for i:=0 to length(EditMitDemProBuchstabenDreifachAuszugebendenText.Text)-1 do
begin
for j:=1 to 3 do
EditAusgabe.Text:=EditAusgabe.Text+EditAusgabe.Text[i]
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

...
var
  i: Integer;
  str: String;
begin
  for i := 1 to length(Edit1.Text) do
    str := str+Edit1.Text[i]+Edit1.Text[i];
  Edit1.Text := str;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function DuplicateChars(const AText: String): String;
var
   CurCharSrc: PChar;
   CurCharRes: PChar;
begin
  SetLength(result, Length(AText) * 2);

  CurCharSrc := PChar(AText);
  CurCharRes := PChar(result);

  while (CurCharSrc^ <> #0) do
  begin
    CurCharRes^ := CurCharSrc^;
    (CurCharRes+1)^ := CurCharSrc^;
    Inc(CurCharSrc, 1);
    Inc(CurCharRes, 2);
  end;
end;