.............
type TFieldNameDecodeFunc = function(sName: string): string;  
.............
procedure FillRecordFrom(NameDecodeFunc: TFieldNameDecodeFunc = nil);
begin
........................
end; 
.......................
function TImportCsv.DecodeName(sName: string): string;
begin
......................
end;     
.......................
// пробуем вызывать
FillRecordFrom(oCSV.DecodeName);
// получаем
//uproductlist.pas(426,123) Error: Incompatible type for arg no. 5: Got
// "TImportCsv.DecodeName(AnsiString):AnsiString;", expected "<procedure
// variable type of function(AnsiString):AnsiString;Register>"

type TFieldNameDecodeFunc = function(sName: string): string of Object;