assembler в delphi

[skrudjmagdak]

Нужно написать функцию(любую) в delphi но написанную на assembler'е(т.е. асм код встроенный в delphi), которую потом нужно вызвать. Покажите пожалуйста пример

[Stilet]

uses
  SysUtils,Windows;
  Procedure aga(s:string);
  begin
   asm
    push 0;
    push 0;
    push s;
    call GetForegroundwindow
    push eax;
    call MessageBoxA;
   end;
  end;
begin
 aga('sdsad');
  { TODO -oUser -cConsole Main : Insert code here }
end.

Устроит?

[skrudjmagdak]

Дело в том что мне нужна сама функция на асме

[skrudjmagdak]

Объявление самой функции на асме

[DarkEvil]

function test():boolean;
asm
  mov @result, 1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if test() then
showmessage('ok');
end;

[skrudjmagdak]

Спасибо за ответ, но мне немного другое нужно. Вы делайте такую конструкцию:
Procedure имя_процедуры
asm
текст_асм проги
end;
end;
...
имя_процедуры //вызов процедуры

А мне нужно:

asm
Имя_процедуры
...
end;
...

имя_процедуры //вызов процедуры

т.е. имя функции\процедуры должно быть внутри асм кода

[DarkEvil]

procedure testmessage();
begin
  MessageBox(0, 'test', 'test', 0);
end;

procedure test;
asm
  call testmessage;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test;
end;