uses System.SysUtils;

const
  Letters = 'abcdefghijklmnopqrstuvwxyz';
  Digits = '0123456789';

//takes Len characters from Chars
function RandomString(const Chars: string;
  Len: Integer): string;
var
  I: Integer;
begin
  SetLength(Result, Len);
  for I := 1 to Len do
    Result[I] :=
      Chars[Random(Length(Chars)) + 1];
end;

var
  RandEmail: string;
begin
  //without Randomize the series
  //repeats at every start
  Randomize;

  RandEmail := Format('%s@%s.com',
    [RandomString(Letters + Digits, 16),
     RandomString(Letters, 5)]);

  WriteLn('randEmail is ''', RandEmail, '''');
  //randEmail is 'a7k2p0w9x3m5t1b8@qwlrd.com'
end.