function isMemoField(fieldno : Integer): Boolean;

Function isMemoField() returns TRUE is a field is memo.

begin
    // your code
    if dbf.isMemoField(0) then
        writeln( 'This is memo.' );
    // your code
end;