Hallo, herzlich Willkommen!
Ich würde das mit einer Schleife lösen. Ein ungetesteter Ansatz:
Delphi-Quellcode:
var
i: Integer;
s: string; // Anzeige
const
wort = 'hallo'; // das ist das, was in deinem Memo steht.
// Du hast es in der Variablen "WelchesWort", vermute ich.
// ...
s := '-----'; // das, was angezeigt werden soll (Anzahl der Striche kann dynamisch bestimmt werden)
// ...
// Alle Buchstaben des Worts durchlaufen
for i := 1 to Length(wort) do
begin
if wort[i] = 'A' then // hier eben den zu Prüfenden Buchstaben einsetzen
s[i] := 'A';
end;
Label1.Caption := s;
Wie gesagt, es ist ungetestet und nur ein Denkansatz.
Grüße, Matze