Как присвоить значение переменной объявленной из кода Fr?

LOGic_BBS

Как присвоить значение vmDay переменной объявленной mDay из кода FR?

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
var
 d,vmDay,vMon,vYea: string;
begin
 with Memo1, Engine do
  begin
   d:=<dDAT>;
  // d:='10.10.2007';
   vmDay:= Copy(d,1,2);
    Memo2.Text:= vmDay;
   vMon:= Copy(d,4,2);
    if vMon = '01' then vMon:='Января'else
    if vMon = '02' then vMon:='Февраля'else
    if vMon = '03' then vMon:='Марта'else
    if vMon = '04' then vMon:='Апреля'else
    if vMon = '05' then vMon:='Мая'else
    if vMon = '06' then vMon:='Июня'else
    if vMon = '07' then vMon:='Июля'else
    if vMon = '08' then vMon:='Августа'else
    if vMon = '09' then vMon:='Сентября'else
    if vMon = '10' then vMon:='Октября'else
    if vMon = '11' then vMon:='Ноября'else
    if vMon = '12' then vMon:='Декабря'else
    vMon:= Copy(d,4,2);
     Memo3.Text:=vMon;
   vYea:= Copy(d,7,4);
    Memo4.Text:=vYea;

    //<mDay> := vmDay; // Как присвоить значение vmDay переменной объявленной mDay из кода FR?
    //<Mon> := vMon;
    //<Yea> := vYea;

 end;
end;

-=Den=-

Set(<mDay>,vmDay);
Set(<Mon>,vMon);
Set(<Yea>, vYea);

LOGic_BBS

написал: »

Set(<mDay>,vmDay);
Set(<Mon>,vMon);
Set(<Yea>, vYea);

Спасибо огромное, я что то затормозил
Только немножко не так а вот так :-)

    Set('mDay',''''+vmDay+'''');
    Set('Mon',''''+vMon+'''');
    Set('Yea',''''+vYea+'''');