вы, возможно, забыли поставить имя класса перед именем функции в разделе реализации. например, следующий код выдаст вашу ошибку:
unit Unit1;
interface
type
TMyClass = class
function my_func(const text: string): string;
end;
implementation
function my_func(const text: string): string;
begin
result := text;
end;
end.
чтобы исправить, просто измените реализацию функции на TMyClass.my_func(const text: string): string;
.