delphi - 寻找下一个换行符？

Question

我想从文本中复制一行。文本如下所示：

AD1259WED4
PRINCE CHARLES  //THE NAME
PRINCE CHARLES FATHER // FATHERS NAMES
01/01/1900  //DOB
MALE  //GENDER

有时名称较短，例如：

Joy
Rax

在这里我想复制名称，为此我使用以下代码：

pos1:= Pos(sLineBreak,s);
ShowMessage(Copy(s,pos1,Pos(sLineBreak,s,pos1)));

代码根本不起作用，因为这很混乱。Pos1 正在返回第一个换行符位置，但如何找到下一个换行符？

如何正确复制名称？