строки в Lazarus - Найти номер позиции, где находится последняя точка

[SnS]

Здравствуйте, подскажите пожалуйста с задачей: Дана строка текста. Найти номер позиции, где находится последняя точка. что я тут не правильно делаю:

var k,i,nom:integer;
begin

k:=length(Edit1.Text);
for i:=1 to k do
begin

if Edit1.Text[i]='.' then

nom:=i;

end;
Edit2.Text:=nom;
end;

[BDA]

А так?

var
  k, i: integer;
  s: string;
begin
  s := Edit1.Text;
  k := length(s);
  for i := k downto 1 do
    if s[i] = '.' then
    begin
        Edit2.Text := inttostr(i);
        exit;
    end;
end;