Escrever e ler Arquivo Texto

Olá amigos, tenho mais um impasse aqui

Tenho um arquivo texto de 2 linhas e tenho 2 aplicativos que fazem a leitura desse arquivo

O aplicativo A deve apenas escrever algo na primeira linha e depois pular para a segunda linha e escrever outro valor ali.

Gostaria de criar 2 botões nele, um alteraria a linha 1 e o outro alteraria a linha 2. Alguma dica?

Ja o aplicativo B deve ler a primeira linha e comparar o valor que ali esta com uma variavel que armazenarei no executavel. caso o valor seja diferente eu aborto a abertura do sistema.

entao tenho isso para ler a primeira linha

Var

f:TextFile;
num, linha:String;
procedure TForm1.Button1Click(Sender: TObject);
 num:= Form1.numero_x;
 AssignFile(f,'c:\carta.txt');
 Reset(f);
 Readln(f,linha);

 if linha <> num then
 begin
 Application.MessageBox('Houve um problema com a autorização do sistema!'+#13+'Entre em contato com o administrador.', 'Versão Trial', MB_ICONWARNING + MB_OK);
 Application.Terminate;
 exit;
 end;

Caso o valor seja igual eu tenho esse codigo que é um contador

var

NomeArq:String;
f:TextFile;
Execusao,Number:Integer;

begin

NomeArq:='C:\carta.txt';
AssignFile(f,NomeArq);
Number:=0;

if not(fileexists(NomeArq)) then
begin
showmessage('Houve um problema, o sistema será encerrado.')

application.terminate;
exit;
end;

Reset(f);
ReadLn(f, Number);
Execusao:=Number+1;
Number:=Execusao;
ReWrite(f);
Write(f,Number);
CloseFile(f);

If Execusao>=5 then
begin
Application.MessageBox('Execusões chegaram ao seu limite'#13

+'Entre em contato para aquisição do Software ilimitado!','Aplicação Trial',MB_OK+MB_ICONINFORMATION);
Application.Terminate;
end;
end;
end;

Preciso juntar esses 2 codigos e faze-los trabalhar em harmonia, mas não estou conseguindo