Fórum ler o valor de uma variável... #188140

Olá...

Estou precisando passar o valor de uma variável declarada no PUBLIC para uma procedure, segue abaixo a procedure na qual estou atribuindo o valor pra variável:

procedure TFrmPrincipal.CadFuncClick(Sender: TObject);
begin
Tela:= 1;
[b:8cfcf2aa2a]Path:= ´DmlPrincipal.TBFUNCIONARIOS´;[/b:8cfcf2aa2a]
Application.CreateForm(TFrmCadFunc, FrmCadFunc);
FrmCadFunc.ShowModal;
end;


O meu problema é que a procedure que segue abaixo não recebe o valor (´DmlPrincipal.TBFUNCIONARIOS)...


begin
if not odd(FrmPrincipal.path) then // se for impar
//se a célula não está selecionada
if not (gdSelected in State) then
Begin
//Define uma cor de fundo
DBGRegistros.Canvas.Brush.Color:=$00D2FFFF;
DBGRegistros.Canvas.FillRect(Rect); //Pinta célula
//pinta o texto padrão
DBGRegistros.DefaultDrawDataCell(rect,Column.Field,State);
End;
end;



Onde está em negrito, preciso que a procedure ´entenda´ o valor da variável...

Alguém poderia me ajudar???

Obrigado