Функция Nz с C++ Builder на Delphi

function Nz<T>(var V: Variant; var rVal: T): Variant;
begin
if VarIsNull(V) then
  Result:=rVal // ??? - а как так вы хотите вместо варианта возвращать какой-то там класс?
else
  Result:=V;
end;

[DCC Error] MainF.pas(100): E2010 Incompatible types: 'Variant' and 'T'
[DCC Fatal Error] ADBbySen.dpr(5): F2063 Could not compile used unit 'MainF.pas'

function TForm1.Nz(V: Variant; rVal: Variant): Variant;
begin
if VarIsNull(V) then
  Result:=rVal
else
  Result:=V;
end;

var a, b, c, d, e, f, g, h, j: AnsiString;
begin
...
ADODataSet1.Close();
a:=Trim(KD.Text);
b:=Trim(Zak.Text);
c:=Trim(Type.Text);
d:=Trim(Prior.Text);
e:=Trim(VR.Text);
f:=Trim(Mosh.Text);
g:=Trim(Obor.Text);
h:=Trim(Napr.Text);
j:=Trim(DV.Text);
if ((Length(a)+Length(b)+Length(c)+Length(d)+Length(e)+Length(f)+Length(g)+Length(h)+Length(j))>0) then
    begin
    ADODataSet1.CommandText := ' SELECT Двигатели.Код_двигателя, Двигатели.Код_заказчика, '+
            'Двигатели.Код_тип_ЭД, Двигатели.Приоритет, Двигатели.Вид_ремонта, '+
            'Двигатели.[Мощность, кВТ], Двигатели.[Обороты, об/мин], Двигатели.[Напряжение, В], '+
            'Двигатели.Дата_выполнения  FROM Двигатели '+
            'WHERE Код_двигателя Like ' + AnsiQuotedStr( a + '%' ) + ' And ' +
            'Код_заказчика Like ' + AnsiQuotedStr( b + '%' ) + ' And ' +
            'Код_тип_ЭД Like ' + AnsiQuotedStr( c + '%' ) + ' And ' +
            'Приоритет Like ' + AnsiQuotedStr( d + '%' ) + ' And ' +
            'Вид_ремонта Like ' + AnsiQuotedStr( e + '%' ) + ' And ' +
            '[Мощность, кВТ] Like ' + AnsiQuotedStr( '%' + f + '%' ) + ' And ' +
            '[Обороты, об/мин] Like ' + AnsiQuotedStr( g + '%' ) + ' And ' +
            '[Напряжение, В] Like ' + AnsiQuotedStr( h + '%' ) + ' And ' +
            'Дата_выполнения Like ' + AnsiQuotedStr( j + '%' )+ ' ';
    end
else
    begin
    ADODataSet1.CommandText := ' SELECT * FROM Двигатели ';
    end;
ADODataSet1.Open();
...
end;