Hab kein Delphi hier, aber so müsste es gehen:
Delphi-Quellcode:
function blabla(wort:string, buchstabe: char):Extended;
var i, anzahl:integer;
begin
anzahl:=0;
for i:=1 to length(wort) do begin
if wort[i]=buchstabe then begin
anzahl:= anzahl+1;
end;
end;
result:= (length(anzahl) / length(word))*100;
end;
Müsste eigentlich funktionieren, könnte aber au fehler drin sein...
Dat hier z.B. im onClick Event eines buttons oder so...
ShowMessage(FloatToStr(blabla('hallo','l'))+' % des Wortes...);
Greetz by Hux 