Necesito ayuda

[Maria85]

hOLA a todos!!

Tengo un problemilla con un método. Me da un error en el case of y no se porque. El código es el siguiente:

procedure TTFormEnvConfig.SeleccionarDirectorio(Sender: TObject);
var
opcion: string;
begin
case (Sender as TComponent).Tag of
1: opcion:=DirTrabajo.text;
2: opcion:=DirTmp.text;
3: opcion:=DirIconos.text;
4: opcion:=DirConsola.text;
5: opcion:=DirInternet.text;
6: begin
DirCompilador.InitialDir := rutaCompilador;
if DirCompilador.Execute then
editDirCompilador.Text := DirCompilador.FileName;
end;
end;
end;

El error me lo da donde está la linea roja...("Error:Original type required")

Gracias de antemano a todos

Un saludo