[lmikle]

Где-то так:

Код:

var
  S : TStringList;
  A : String;
begin
  S := TStringList.Create;
  Try
    S.LoadFromFile(AFileName); // В переменной AFileName - полное имя файла
    If S.Count < 18 Then Raise Exception.Create('Строк меньше чем 18');
    If Length(S[17]) < 22 Then Raise Exception.Create('В строке 18  меньше чем 22 символа');
    A := S[17]; // Нумерация строк идет с 0
    A[21] := '31';
    A[22] := '32';
    S[17] := A;
    S.SaveToFile(AFileName);
  Finally
    S.Free;
  End;
end;