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;