не могу перевести приложение на консольное

[monrus]

Всем привет. Помогите перевести приложение в консольное:

Код:

program ping;
{$APPTYPE CONSOLE}
uses
   Messages, SysUtils, Classes,
  IdCookieManager, IdAntiFreezeBase, IdAntiFreeze,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls, IdMessage, IdMessageClient, IdSMTP;

type
  idntfrz1= TIdAntiFreeze;
  Mail1= TIdSMTP;
  Mes1= TIdMessage;
{$R *.res}

begin

  Mail1.connect(3000); // ñîåäèíÿåìñÿ
  if Mail1.Connected = true then
  begin
    Mes1.Body.Text := '';
    Mail1.Send(Mes1); // îòïðàâëÿåì
    Mail1.Disconnect; // îòúåäèíÿåìñÿ
  end;

end.

[zubr]

Множество грубейших ошибок, на которые указывает компилятор. Начни с объявления типов, зачем они здесь нужны?

[monrus]

я в типах поменял
 

Код:

type
  idntfrz1: TIdAntiFreeze; 

на

Код:

type
  idntfrz1= TIdAntiFreeze;

чьтобы не ругался компилятор.
Причем в VCL приложении изначально все было без ошибок.
Просто не охота испольховать VCL для такой простой проги.

[zubr]

Да причем здесь VCL? Ты вместо переменных почему то объявляешь типы. Судя по всему без малейшего понятия.
Вот твои даже не школьные ошибки:
1.

Код:

type
  idntfrz1= TIdAntiFreeze;
  Mail1= TIdSMTP;
  Mes1= TIdMessage;

правильно:

Код:

var
  idntfrz1: TIdAntiFreeze;
  Mail1: TIdSMTP;
  Mes1: TIdMessage;

2. вызываешь Mail1.connect(3000); не создав объект класса TIdSMTP. Надо:

Код:

Mail1 := TIdSMTP.Create(nil);
Mail1.connect(3000);

[monrus]

zubr, Спасибо. Разобрался.))