Unit Unit1;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Dateutils, StdCtrls, CheckLst, ExtCtrls;

Type
TForm1 = class(TForm)
function asmtest1(tal:integer):integer;
procedure FormCreate(Sender: TObject);
End;

Var
Form1: TForm1;

Implementation

{$R *.dfm}

Function Tform1.asmtest1(tal:integer):integer;assembler;
Asm
mov eax,tal
add eax,5
mov tal,eax
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
showmessage(IntToStr(form1.asmtest1(5)));
End;

End.