怎么读取带格式的文本文件

如何读取带格式的文本文件？
我有以文本文件内容是：
  SJJK0201~~已开发票传出

现我想读此文本，并将'SJJK0201'赋给一变量A，'已开发票传出'赋给一变量B，请问如何分割呢？
谢谢大家！

[解决办法]

uses StrUtils;

var
s, A, B: WideString;
p: Integer;

begin
s := Trim(' SJJK0201~~已开发票传出');
p := Pos('~~', s);
A := LeftStr(s, p-1);
B := RightStr(s, Length(s) - (p+1));
end;