読み込んだファイルのテキストすべてを表示させたい。

現在、embarcadero RAD Studio 10.3でプログラミングを行っています。

以前の質問 で、テキストファイルを読み込むことができましたが、テキストファイル内には文字列が4行入っており、表示されたメッセージボックスには最初の1行目の文字列の”testtest12”のみが表示されるだけです。

残りの4行もすべてメッセージボックスに表示させるにはどのようにプログラムしたらよいでしょうか？
どうぞ、よろしくお願いします。

void __fastcall TTCP_Client::FormCreate(TObject *Sender)
{

    AnsiString filename = "SaveFile.txt";

    //filename += ".csv";

    ifstream fin;
    fin.open(filename.c_str(), ios::in);

    if( !(fin.fail()) )
    {
        string line;
        getline(fin, line);
        AnsiString str(line.c_str());
        ShowMessage(str);
    }
    else
    {
        StatusBar1->Panels->Items[0]->Text = "Save file does not exist!";
    }

}