Как сделать удваивание букв в Delphi 7.

[MakcAntieror]

Подскажите как сделать удваивание букв, мне нужно что-бы при вводе буква к удалялась, а все остальные буквы удваивались, код на удаление буквы к у меня есть, только нужно удвоение букв.
Если кто-то знает код на удвоение букв, то подскажите пж.

[newerow1989]

   s:='asdfghjkl';
   For i:=Length(s) downto 1 do
      Insert(s[i],s,i);

Сойдет?

[MakcAntieror]

Всё так-же не удваивает.

[Lorden]

Вот это должно работать

var
str:String;
i:Integer;
begin
str:=Edit1.Text;
 For i:=Length(str) downto 1 do
 begin
 if str[i]='к'  then
 delete(str,i,1);
      Insert(str[i],str,i);
      Label1.Caption:=str;
  end;

[Utkin]

s:='asdfghjkl';
a:=''
For i:=1 to Length(s) do
begin
    a:=a+s[i]+s[i];
end;

[newerow1989]

Label1.Caption:=str;

- это надо вне цикла!

[SQLPowerUser]

procedure TForm1.Button1Click(Sender: TObject);
var
  s, n: string;
  i, j: integer;
begin
  s := Edit1.Text;
  SetLength(n, Length(s) shl 1);
  i := 1; j := 1;
  for i := 1 to Length(s) do
  begin
    if s[i] = 'k' then continue;
    n[j] := s[i]; n[j+1] := s[i];
    inc(j,2);
  end;
  Edit2.Text := n;
end;