Замена строки в файле Опции

[Unconnected]

Привет всем.

Нужно написать программу, которая заменяла бы в другом файле одну строку на другую, в смысле именно внутри файла. Нашёл код, который это делает, но там условие, чтобы заменяемая и заменяющая строки были одной длины, а мне надо, чтобы заменяющая строка могла быть больше... В принципе, можно сделать, чтобы заменяемая строка была дополнена сторонними символами, пробелами, например, а при замещении при надобности их удалять. Но, может быть, можно при замещении большей строкой "сдвигать" оставшуюся часть файла?

[Unconnected]

В итоге получилось следующее:) Через HEX-редактор я нашёл в файле адрес нужной строки(в изменяемой программе эта строка предварительно была дополнена пробелами, чтобы был запас длины) и в "билдере" патчил файл побайтно.

var f:thandle;
    fils:integer;
    mes:string;
    i:integer;
    c:byte;
    BytesRead,c2:DWORD;
begin 
  mes:=smemo1.text;
  c2:=$5C64;
  for i:=1 to length(mes) do
  begin
    c:=ord(char(pchar(mes[i])));
    SetFilePointer(f, c2, nil, 0);
    WriteFile(f, c, SizeOf©, BytesRead, nil);
    inc(c2);
  end;
end;

Хорошо, что оказался возможным инкремент DWord'а.