DLL с формой и ее вызов динамически.

[Slym]

не проверял

Function TestForms(textbtn1, textbtn2, textdialog:PAnsiCHar;var Buf; BufLen: DWORD):Bool;
begin
  with TForm1.Create(nil) do
  try
    Button1.Caption:=String(AnsiString(textbtn1));
    Button2.Caption:=String(AnsiString(textbtn2));
    Caption:=String(AnsiString(textdialog));
    result:=ShowModal=mrok;
    StrLCopy(@Buf,PAnsiChar(AnsiString(form1.Memo1.Text)),BufLen-1);
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
type tTestForms=Function(textbtn1, textbtn2, textdialog:PAnsiCHar;var Buf; BufLen: DWORD):Bool;
var
  dll_instance: Thandle;
  TestForms:TTestForms;
  pac:pansichar;
  Buf:AnsiString;
begin
  form1.Caption:='';
  dll_instance:= LoadLibrary('ProjectDll.dll');
  if dll_instance=0 then RaiseLastOSError;
  @TestForms:=GetProcAddress(dll_instance, 'TestForms');
  if @TestForms=nil then RaiseLastOSError;
  SetLength(Buf,1024);
  if TestForms('OK', 'No', 'DIALOG DLL FORMS',PAnsiChar(Buf)^,Length(Buf)) then
  begin
    form1.Caption:=StrPas(PAnsiChar(Buf));
    Form1.Caption:=Form1.Caption+';TRUE';
  end;
  FreeLibrary(dll_instance);
end;