also irgendwas stimmt nicht bei dem von dir geposteten Code.
in der
DLL erwartet die Funktion einen PChar und einen Integer:
function BerechneWas(Titel: PChar; Wert: Integer): Integer; stdcall;
du übergibst aber einen PChar und einen String
BerechneWas(PChar(Edit1.Text), IntToStr(Edit2.Text))