String buchstabenweise in array einlesen

[basti2011]

Hallo,
Ich würde gerne in ein dyn. Array einen string einlesen und zwar buchstabenweise.
Anschließend soll ein buchstabe in ein edit feld eingegeben werden und eine procedure gibt aus wie oft dieser buchstabe in dem oben eingelesenen array vorkommt.

Momentan bin ich beim einlesen in das array soweit :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,laenge :integer;
    wort :string;
    BS_array: array of string;
begin
 wort := edit1.text;
 laenge := Length(wort);
 Setlength(BS_array,laenge);
 For i := 1 to (laenge-1) do
  begin
   BS_array[1] := wort;   // ich nehme an in diesem Bereich brauch ich einen befehl der den string zerlegt und damit einzelne Stellen belegt
  end;

Danke im Vorraus !