[The Shadow]

В программе пишу:

Код:

...
implementation
...
procedure ImageNegative(Image: TImage); external 'Путь к dll' name 'ImageNagative';
...
procedure TMyForm.NegButtonClick(Sender: TObject);
begin
ImageNegative(Image1);
end;
...