1:
2:
3:
4:
5:
6:
7:
8:

Var
  Loop : Integer;

{...}

For Loop := 1 To Length (Text) Do
  If Text [Loop] = Buchstabe Then
    ; // An der Stell Loop befindet sich der Buchstabe					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var
text: String;               //Der Text zum durchgucken
letter: Char;               //Buchstabe, der drin sein soll
i: Integer;                 //Durchlauf-Zahl
begin
text := 'Delphiforum';
letter := 'm';
i := 1;
repeat
if text[i] = Letter then ShowMessage('Der Buchstabe ist an Stelle '+IntToStr(i));
i:=i+1;
until i > Length(text);
end;