[[escafandra]]

Mira estos cambios:

Código Delphi [-]
library CLDRes;

uses
  SysUtils,
  Classes,
  Forms,
  Controls,
  Unit2 in 'Unit2.pas' {wPassOk};

{$R *.res}
function ConfirmPass(S: string): Boolean; stdcall;
begin
  result := False;
  with TwPassOk.Create(Application) do
  begin
    ShowModal;
    if ModalResult = mrOk then
      if S = Edit1.Text then Result := true;
    Free;
  end;
end;
exports  ConfirmPass;
begin
end.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ConfirmPass(Edit1.Text) then
    ShowMessage('Si') else ShowMessage('no');
end;

A falta de tu proyecto he hecho un ejemplo que optimiza el llamamiento a la dll y evita la asignación innecesaria del Handle de la aplicación.

Subo el proyecto de ejemplo.


Saludos.