Как в label2 вставить текст с Label1 до слова ‘Конец’, а в Label3 после этого слова?

← →
Song (2002-03-06 21:59) [1]

With TStringList.Create
try
Text:="Первая строка, Конец Вторая строка";
Text:=StringReplace(Text,"Конец",#13#10,[rfReplaceAll]);
Label1.Caption:=Strings[0];
Label3.Caption:=Strings[1];
finally
Free;
end;

P.S. Можно ещё через Pos, но так, я считаю, красивей
ещё нужно убрать пробелы после слова "конец" перед "вторая строка", иначе в Label3 эти пробелы учтутся.

Как в label2 вставить текст с Label1 до слова ‘Конец’, а в Label3 после этого слова? Найти похожие ветки