Type
  PIBDate=^TIBDate;
  TIBDate=longint;    {= integer без разницы: integer - 2147483648 .. 2147483647  signed  32 -bit
                                              longint - 2147483648 .. 2147483647  signed  32 -bit}

function DatRuStr(var IBDate: TIBDate): PChar; cdecl; export;
Begin
  DatRuStr:=PChar(DateToStr(IBDate- 15018 )+# 0 ); 
 {возможно +# 0  уже лишнее, но у меня так}
End;

exports
  DatRuStr name 'DatRuStr';

begin
  ShortDateFormat:='dd.mm.yyyy';
 {на всякий случай, вдруг в системе другой будет}
end.

и объявление

DECLARE EXTERNAL FUNCTION  "DatRuStr" 
    DATE
RETURNS CSTRING( 10 )  /* а не varchar,
 возможно именно поэтому у тебя и не работает, 
но под дату со временем надо заложить ессно большую длину */ 
ENTRY_POINT 'DatRuStr' MODULE_NAME 'my_udf';

 /* для моей функции */ 

select  "DatRuStr" (cast('14.11.2003' as date)) from rdb$database;

 /* для твоей */ 

select DateToString(cast('01.11.2003 12:34:12' as timestamp)) from rdb$database;

...
uses ... dialogs;
...
function DateToString(var IBDateTime: TIBDateTime): PChar; cdecl;
var 
  DateTime: TDateTime; 
begin 
  DateTime := IBDateTime.Days -  15018  + IBDateTime.MSec10/(MSecsPerDay* 10 ); 
  ShowMessage('IBDateTime.Days: '+IntToStr(IBDateTime.Days)+# 13 +
              'IBDateTime.MSec10: '+IntToStr(IBDateTime.MSec10)+# 13 +
              'MSecsPerDay: '+IntToStr(MSecsPerDay)+# 13 +
              'DateTime Delphi: '+DateTimeToStr(DateTime));
  Result := PChar(DateTimeToStr(DateTime)); 
end; 
...