значение из подстроки

[GazimagomedovM]

Помогите пожалуйста по Делфи. Нужно из текстового файла, содержание его ниже:
( Усього: 0
Обороти:

Вихўдне сальдо НВ: 222'644.60
Курс: 484.0100 UAH за 100 USD USD 46'000.00
) взять значение 222'644.60 после сочетания (Вихўдне сальдо НВ.

[eoln]

Для данного файла

procedure TForm1.Button1Click(Sender: TObject);
var
  txt: TStringList;
  d: integer;
  s: string;
begin
  txt :=TStringList.Create;
  txt.LoadFromFile('0.txt'); //читаем файл в переменную
  d := -1;
  while d<txt.Count-1 do begin //перебираем строки
    inc(d); 
    if pos('Вихўдне сальдо НВ:', txt.strings[d]) = 0 then continue; //ищем совпадение    
    s := copy(txt.strings[d], 20, length(txt.strings[d]));
    //в s пишем значение (20 символов на строку "Вихўдне сальдо НВ:")
    application.MessageBox(pchar(s), ''); //выводим ответ
  end;
end;

[Serge_Bliznykov]

eoln, а можно два замечания по Вашему коду?
(только без обид, плиз...)
1) я бы рекомендовал объект txt в конце уничтожить
txt.Free;
или
FreeAndNil(txt);
а то как-то некузявно ;-((

2) если строчка с "сальдо" нужна только одна, то нет смысла продолжать перебирать цикл до конца файла....

Хотя, как пример реализации - отлично пойдёт.