Mira estos cambios:
Código Delphi
[-]
library CLDRes;
uses
SysUtils,
Classes,
Forms,
Controls,
Unit2 in 'Unit2.pas' ;
{$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.