Abfrage ob eingegebener Wert nur ein Charackter

[wicht]

Delphi-Quellcode:

function suche(buchstabe:string):integer;
var
  i: integer;
begin
  result := 0;
  i := 1;
  if length(nf) = 0 then
     exit;
  while a[i] <> buchstabe do begin
    Inc(i);
    if i > length(nf) then
      break;
  end;
  result:=i;
end;

So vielleicht? Ungetestet..