[Yurk@]

навскидку:

Код:

var
str :string;
i:inetger; 
...
str:=Edit1.Text;
for i:=1 to 2 do
  str:=StringReplace(str,str[1],'',[rfReplaceAll, rfIgnoreCase]);
if Length(str)=0 
  then Двоякое;