Variantはふつー使わない。

Edit6->Text = Fields[0]->AsString();

じゃね?