Можно конечно и через ExPos, но намного приятнее работать с такой строкой, как с массивом параметров:
Код:
Var
Lst: TStringList;
RegInfo: record Reg,Login,Password,Info: String; end;
St: String;
begin
St := '|1|Иванов|Пароль|Наш парень|';
Lst := TStringList.Create;
Lst.Text := StringReplace(St,'|',#13,[rfReplaceAll]);
RegInfo.Reg := Lst.Strings[1];
RegInfo.Login := Lst.Strings[2];
RegInfo.Password := Lst.Strings[3];
RegInfo.Info := Lst.Strings[4];
end;