ANTICHAT — форум по информационной безопасности, OSINT и технологиям

  smtp.Host:='smtp.mail.ru';
  smtp.AuthenticationType := atLogin;
  smtp.Port:=25;
  smtp.Username:='********';
  smtp.Password:='*********';

 Msg.ClearBody;
 TIdAttachment.Create(Msg.MessageParts, 'C:\1.txt');
  Msg.Body.Add ('Zdes<br>html');
  TidText.Create( Msg.MessageParts,  Msg.Body);
  Msg.MessageParts.Items[0].ContentType := 'application/octet';
  Msg.MessageParts.Items[1].ContentType := 'text/html';
 Msg.ContentType := 'multipart/mixed';
  Msg.CharSet:= 'Windows-1251';
  Msg.Encoding:= meMIME;

1:2
3:4
5:6
7:8
9:10
11:12
13:14
и, т.д.

var
 mas:array of string;
 cnt:integer;
 f:texfile;
x:integer;
s:string;
begin
 assignfile(f,'name.txt');
reset(f);
cnt:=0;
 while not eof(f) do
   begin
     inc(cnt);
    setlength(mas,cnt)
    readln(f,mas[cnt-1]);
   end;
closefile(f);
.............
for x:=0 to cnt-1 do
 begin
  if copy(mas[x],1,pos(':',mas[x])-1)=edit1.text then 
   begin
    s:=mas[x];
   delete(s,1,pos(':',s));
    edit2.text:=s;
    break;
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  f: TextFile;
  s,d: String;
  i: Integer;
begin
  d:=Edit1.Text;
  AssignFile(f,'name.txt');
  Reset(f);
  while not eof(f) do
  begin
    ReadLn(f,s);
    i:=pos(':',s);
    if d=copy(s,1,i-1) then
    begin
      Edit2.Text:=copy(s,i+1,Length(s)-i+1);
      Break;
    end;
  end;
  CloseFile(f);
end;