谁知道bcb下面的代码如何翻译为delphi(20分)

HINSTANCE dd;
char code_buff [30];
char name_buff [256];
int _stdcall (*ddd)(char *,char *);
dd=LoadLibrary("testdll.dll");
ddd=(int (_stdcall *)(char *,char *)) GetProcAddress(dd,"ScanFileAPI");

strcpy(name_buff,Edit1->Text.c_str());
//for (int iii = 0; iii < strlen(name_buff); iii++)
// name_buff[iii]=(name_buff[iii])^99; //¼ÓÃÜ

ddd(name_buff,code_buff);
Edit2->Text=code_buff;