[[duilioisola]]

Creo que te faltan algunos paréntesis...

Código Delphi [-]
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;