Fórum Enviando Email com Delphi #486965

Estou desenvolvendo uma aplicação onde a mesma interage com um Scrip PHP para envio de dados. Porém, não estou conseguindo ter sucesso com o mesmo. Após a compilação é a presentada uma tela de erro com a seguinte mensagem : Acess violation at adderess 0063d716 in module 'projectEmail.exe'. Read of address 00000008. Li sobre e descobri que isso é uma violação de endereço de memória, ou seja, algum trecho do código está tentando utilizar uma variável ou objeto que ainda não foi criado. Ficaria muito grato se alguém me ajudasse pois ainda não consegui sanar o problema. Abaixo deixo o código da aplicação, Desde já agradeço!


unit UnitEmail;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
IdHTTP: TIdHTTP;
implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
Lista: TStringList;
IdHTTP: TIdHTTP;
begin
Lista:=TStringList.Create;

try
Lista.Clear;
Lista.Add('email=' + 'kernell19@gmail.com');
Lista.Add('from=' + 'mirovin@gmail.com');
Lista.Add('subject=' + 'Info:::');
Lista.Add('message=' + Memo1.Text);
try
idHTTP.Post('http://month.hol.es/mail.php',Lista);
except
MessageBox(0,'Erro no Envio.','Erro',MB_ICONERROR);
end;
finally
MessageBox(0,'Informações enviadas com sucesso!','Informação',MB_ICONINFORMATION);
end;
end;


end.