Resposta fácil: Você não pode.
Contorno:
Não quero nem entrar no mérito do porquê, então, para que o compilador "entenda" o que foi escrito, o código deve estar legível.
Uma forma de contornar seria criar uma DLL contendo as funções "escondidas" e liberá-la junto com os fontes.
Segue forma de fazer retirada daqui:
Vá em File|New|Other|DLL Wizard
;
Substitua o fonte criado por este:
library TestLibrary;
uses SysUtils, Classes, Dialogs;
procedure DllMessage; export;
begin
ShowMessage('Olá Mundo') ;
end;
exports DllMessage;
begin
end.
Crie um novo projeto (para testar), inclua um botão no form (button1) e substitua o fonte pelo seguinte:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject) ;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
procedure DllMessage; external 'SimpleMessageDLL.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject) ;
begin
DllMessage;
end;
end.
Ao clicar o botão, o sistema chamará a função criada na DLL. Altere a função pela que precisa e distribua a DLL junto ao fonte informando que esta é necessária.