... procedure "XXX"; external "имя dll-ки" name 'Имя процедуры как оно в библиотеке'; ... procedure TForm1.Button1Click(Sender: TObject); begin XXX; end; ...