send html and text email in delphi 2007

Hi all,
Can anyone please help me out with some Delphi 2007 code?
I need to be able to send a email in html and text to a address from Delphi.
I was using Indy to do this in Delphi 6, but i want to get all my code to compile in Delphi 2007.
The code i was using is......


function SendReport(ServerName, FromEmail, FriendlyName, ToEmail, Subject, Info: string): Boolean;
var
 htmpart, txtpart: TIdText;
 Email: TIdMessage;
 html: TStrings;
 IdSMTP: TIdSMTP;
begin
 Email := TIdMessage.Create(nil);
 html := TStringList.Create();                                                  
 IdSMTP := TIdSMTP.Create(nil);
 
 HTML.Add(Info);
 IdSMTP.Host := ServerName;
 
 email.ReplyTo.EMailAddresses := FromEmail;
 email.From.Text := FriendlyName;
 email.Recipients.EMailAddresses := ToEmail;
 email.Subject := Subject;
 email.ContentType := 'multipart/mixed';
 email.Body.Assign(html);
 
 txtpart := TIdText.Create(email.MessageParts, html);
 txtpart.ContentType := 'text/plain';
 txtpart.Body.Text := 'This is a html email';
 htmpart := TIdText.Create(email.MessageParts, html);
 htmpart.ContentType := 'text/html';
 { Now send it }
 try
  idSMTP.Connect();
  try
   idSMTP.Send(email);
  except on E: Exception do
    begin
     result := false;
    end;
  end;
 finally
  idSMTP.Disconnect();
 end;
 html.Free();
 htmpart.Free;                                                                
 txtpart.Free;                                                                  
 Email.Free;
 IdSMTP.Free;
end;


This worked in Delphi 6, But in Delphi 2007 it errors on TIdText.

Can someone please send some code to use Indy in Delphi 2007 so i can send HTML and TEXT emails out and use Delphi 2007 to compile my program?

Thanks