[Harima Hario]

Есть компонент TMemo заполненый следующим текстом:

Код:

C…
MENU

$GPRMC,101000.00,A,5029.0706,N,03028.7410,E,000.0,000.0,230111,02.2,E,A*0D
$GPRMC,101001.00,A,5029.0707,N,03028.7411,E,000.0,000.0,230111,02.2,E,A*0D

VSE

MENU

Мне нужно сохранить только это:
$GPRMC,101000.00,A,5029.0706,N,03028.7410,E,000.0, 000.0,230111,02.2,E,A*0D
$GPRMC,101001.00,A,5029.0707,N,03028.7411,E,000.0, 000.0,230111,02.2,E,A*0D
Я умею сохранять только определенные строки, но в моем случае строки могут быть разными… было бы идеально сохранять текст, начиная с первого символа $ и по слово VSE.

Сейчас сохраняет все стандартной процедурой:

Код:

procedure TForm1.Button_save_to_fileClick(Sender: TObject);
var FName: string;
begin
SaveDialog1.FileName := FName;
if SaveDialog1.Execute then
 begin
  FName := SaveDialog1.FileName;
  Memo.Lines.SaveToFile(FName);
 end;
  end;

Буду благодарен любым соображениям.