program Project2;
{$APPTYPE CONSOLE}
uses sysutils;

function getEMailAddy(s: string): string;
var
 i: integer;
 KommaCount: integer;
 quoted: boolean;
begin
 quoted := false;
 result := '';
 KommaCount := 0;
 for i := 1 to length(s) do
 begin
  if s[i] = '''' then quoted := not quoted;
  if not quoted and (s[i] = ',') then
  begin
   inc(KommaCount);
   if KommaCount > 4 then break;
   continue;
  end;
  if (KommaCount = 4) and (s[i] <> '''') then
   result := result + s[i];
 end;
end;

var
 s: string = 'INSERT INTO bb1_users VALUES (''01'', ''MoYo'',''pw'',''pw'',''MoYo64@hotmail.de'','' ';
begin
 writeln(GetEMailAddy(s)); //teststring
 readln;
end.