[MOJO]

про позицию

Код:

var
p:integer;
begin
p:= pos('a',Edit1.Text);
edit1.Text:=inttostr(p);
end;
 begin
//ShowMessage('Êîë-âî áóêâ "a" â ñëîâå: '+intToStr(p))
end.