Работа со строками Delphi

[Яська]

Определите номер первой и номер последней буквы К в тексте/

вот с первой буквой всё получается,а с последней нет.подскажите,где ошибка.

мой код:
procedure TForm1.Button3Click(Sender: TObject);
var str:string;
i, n:integer;
begin
Label2.Visible:=true; // выводится номер первой буквы К
Label4.Visible:=true; // выводится номер последней буквы К
str:=Memo1.Text;
n:=length(str);
For i:=1 to n do
begin
Label2.Caption:= FloatToStr( pos('к', str));
end;
For i:=1 downto n do
begin
Label4.Caption:=FloatToStr(pos('к', str));
end;

end;

end.

[Прик]

procedure TForm1.btn3Click(Sender: TObject);
var str:string;
  i, n:integer;
begin
  Label2.Visible:=true;
  Label4.Visible:=true;
  str := AnsiUppercase(Memo1.Text);
  n:=length(str);
  I := pos('К', str);
  if I > 0 then
    Label2.Caption:= IntToStr(I);

  for i := n downto 1 do
    if str[i] = 'К' then begin
      Label4.Caption := IntToStr(I);
      break;
    end;
end;