var
  Form1: TForm1;
  // прототип вызываемой функции
  function func1(p:PChar):Boolean;stdcall; external '1.dll';
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // вызываем 
func1('ЗАРАНЕЕ_ИЗВЕСТНАЯ_ЭКСПОРТИРУЕМАЯ_ФУНКЦИЯ');
end;