Delphi - duca en los case

mi pregunta es tengo este fragmento de codigo de un case:

procedure TForm46.Button1Click(Sender: TObject);
var edusua,edpass : string;
begin
edusua:= form46.edit1.name;
edpass:= form46.edit2.name;
case edusua of
'cmontesi' : begin
if edpass = '11111' then
begin
form1.showmodal;
form1.bitbtn8.enabled := false;
form1.bitbtn9.enabled := false;
end
else
form46.showmodal
end;
end;
end

mi duda es que si en un case acepta string porque en la linea 6 del codigo me marca el siguiente error: [Error] Unit46.pas(45): Ordinal type required, si hay una solucion o tengo un problema porfavor decirmelo gracias

No puedes usar un String como variable de comparación en un Case, el mensaje de error es bastante explicito: Se requiere un tipo Ordinal, los String no son ordinales.