Вычесть из строки одного Memo строку другого и поместить результат в третье

float s=0;
 
for (i = 0; i < Memo7->Lines->Count && Memo8->Lines->Count; i++)
 
 s= StrToFloat(FloatToStr(Memo7->Lines->Strings[i]) / FloatToStr(Memo8->Lines->Strings[i]) ) ;
 Memo9->Lines->Add(FloatToStr(s));

for (int i = 0; i < Memo1->Lines->Count && i < Memo2->Lines->Count; i++) {
    float s = StrToFloat(Memo1->Lines->Strings[i]) - StrToFloat(Memo2->Lines->Strings[i]);
    Memo3->Lines->Add(FloatToStr(s));
}

float s = 0;
 
    for (int i = 0; i < min(Memo7->Lines->Count, Memo8->Lines->Count); i++)
    
        s = StrToFloat(Memo7->Lines->Strings[i]) - StrToFloat(Memo8->Lines->Strings[i]);
        Memo9->Lines->Add(FloatToStr(s));

void __fastcall TForm1::Button1Click(TObject *Sender)
{
#define M1 Memo1->Lines
#define M2 Memo2->Lines
#define M3 Memo3->Lines
 
Memo3->Clear();
 
double tempM1, tempM2;
for( unsigned i=0;
     i < ( M1->Count>M2->Count ? M1->Count : M2->Count );
     i++ )
        if( TryStrToFloat( M1->Strings[i], tempM1 ) &&
            TryStrToFloat( M2->Strings[i], tempM2 )    )
                M3->Add( tempM1 - tempM2 );
        else
                M3->Add( "Bad input value" );
}