[roman]

Podría funcionarte algo así:

Código Delphi [-]
var
  List: TStringList;

begin
  List := TStringList.Create;
  List.Delimiter := '@';
  List.DelimitedText := '298@juan perez@san carlos@22/11/2004@jazmin';

  {
    Aquí accedes a los elementos con List[0], List[1], List[2], etc.
  }

  List.Free;
end;

// Saludos