ExtractMessage example for Delphi

procedure TForm1.ExtractMessageClick(Sender: TObject);
var
   nRet: L_INT;
   strMsg: String;
   strPassword: String;
   strFileName: String;
   strDirectory: String;
   ptStart: TPoint;         
begin
   nRet:= LEADImage1.ExtractMessage( strMsg, strPassword, strFileName, strDirectory, ptStart );
   {Check if the extracted message is a text or file }
   if ( nRet = SUCCESS ) then
   begin
      MessageBox ( Handle, pChar(strMsg), 'Extracted Message', MB_OK )
   end
   else
      MessageBox ( Handle, 'No message', 'Error', MB_OK );
end;