procedure TfrmMain.SendReferral(Sender: TObject); var SendResult: ISendResult;
i: Integer;

begin

FCOMOBJ := CoMOMessage.Create;
FCOMOBJ.Passphrase := 'accountpassword';
//Utility object for determining the Online Status and Report Delivery Status
FUtilityObj := CoUtility.Create;
//Define the patient
FCOMOBJ.Patient.FirstName := 'Andrew';
FCOMOBJ.Patient.LastName := 'McIntyre';
FCOMOBJ.Patient.DateOfBirth := GetPatientDOB();
FCOMOBJ.Patient.Sex := Male;
FCOMOBJ.Patient.Address.StreetAddress := '1 Medical-Objects Road';
FCOMOBJ.Patient.Address.City := 'BUDERIM';
FCOMOBJ.Patient.Address.Postcode := '4556';

//Who is it going to
FCOMOBJ.SendTo.FirstName := 'Melissa';
FCOMOBJ.SendTo.LastName := 'White';
FCOMOBJ.SendTo.IDs.AddProviderNo('0191322W');
//Who is being sent from
FCOMOBJ.SentFrom.FirstName := 'Jared';
FCOMOBJ.SentFrom.MiddleName := 'Michael';
FCOMOBJ.SentFrom.LastName := 'Davison';
FCOMOBJ.SentFrom.Prefix := 'Mr';
FCOMOBJ.SentFrom.IDs.AddProviderNo('JD455600041');
//What is the content of the report
FCOMOBJ.Content.Title := 'Letter';
FCOMOBJ.Content.Content := mmMainContentBody.Lines.Text;
FCOMOBJ.Content.ReportID := '235667'; 
FCOMOBJ.Content.ContentType := MOCom_TLB.Text;
SendResult := FCOMOBJ.Send;
if SendResult.ErrorCount > 0 then
begin
memo1.Lines.Clear;
for i := 0 to SendResult.ErrorCount -1 do
mmErrors.Lines.Add(SendResult.ErrorMessages[i]);
showmessage('Send failed'); 
end else begin
showmessage('Sent OK'); 
end;
end;
procedure TfrmMain.IsProviderOnline(Sender: TObject); begin
ShowMessage(edtProviderNo.Text + ' routable = ' + BoolToStr(FUtilityObj.IsProviderOnline(Edit1.Text), True));
end;