Подсчет суммы

[Владимир1988]

Подскажите пожалуйста как сделать, чтобы не считалась сумма в программе, куда я вызываю эту DLL, если переменные не подходят по условию, чтобы не приравнивать их к нулю.
Нужно это сделать при использовании false, true.
Подскажите please

код DLL

library Project2;

uses
  SysUtils,
  Windows,
  Classes;

{$R *.res}
type
TMyClass = class(TObject)
v1: real;
v2: real;
end;
 procedure MyFirstFunc(My:TMyClass);
begin
 while (My.v1<2) or (My.v1>10)or (My.v2<2) or (My.v2>10)  do
 begin
 My.v1:=0;
 My.v2:=0;
 MessageBox(0, 'Значения должны быть от 2 до 10. Повторите ввод', 'dll', MB_OK);
 Exit;
end;
end;
exports
   MyFirstFunc;
function MySum (My:TMyClass): real;
 begin
   Result:=My.v1+My.v2;
end;
exports
  MySum;
begin
end.

[Stilet]

Что-то я ниразу не понял что нужно...

[MaxNik2009]

Кто же так dll оформляет???

library Project2;

uses
  SysUtils,
  Windows,
  Classes;

{$R *.res}
type
TMyClass = class(TObject)
v1: real;
v2: real;
end;
 procedure MyFirstFunc(My:TMyClass);
begin
 while (My.v1<2) or (My.v1>10)or (My.v2<2) or (My.v2>10)  do
 begin
 My.v1:=0;
 My.v2:=0;
 MessageBox(0, 'Значения должны быть от 2 до 10. Повторите ввод', 'dll', MB_OK);
 Exit;
end;
end;

function MySum (My:TMyClass): real;
 begin
   Result:=My.v1+My.v2;
end;


exports
   MyFirstFunc,
   MySum;

begin
end.

и что должна делать ваша длл???

Зачем цитировать бред?

[Владимир1988]

Должна выдавать только сообщение, если переменные, которые я ввожу в программе, в которой эта dll вызывается, не подходят по условию, и просто выводить сумму этих переменных, если переменные подошли.
а в настоящий момент, если переменные не подходят по условию, выходит и сообщение и считается сумма.

[evg_m]

if (..) then
  mysum()
else 
  showmessage();

[Владимир1988]

попробовал, но все равно выводится сумма

[evg_m]

function MyFirstFunc(My:TMyClass): boolean;
begin
 result:=(My.v1<2) or (My.v1>10)or (My.v2<2) or (My.v2>10);
end;

if myfirrstfunc(m) then
  mysum(m)
else 
  showmessage

[Владимир1988]

получилось
спасибо большое