Записать данные из полей в Label

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <mysql.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
MYSQL *Con;
MYSQL_RES *Res;
MYSQL_FIELD *Fields;
 
MYSQL_ROW row;
unsigned int num_fields;
unsigned int i;
 
void connectsql()
{
    Con=mysql_init(Con);
    Con=mysql_real_connect(Con,"localhost","root","","registration",0,NULL,0);
    if(!Con)
    {
        ShowMessage("Can not connect.");
        Form1->Label5->Caption="error";
        Form1->Label5->Font->Color=clRed;
    }
    else
    {
        Form1->Label5->Caption="enable";
        Form1->Label5->Font->Color=clGreen;
    }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    connectsql();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label5Click(TObject *Sender)
{
if(Label5->Caption == "false")
    connectsql();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label3Click(TObject *Sender)
{
AnsiString login = Edit1->Text;
AnsiString password = Edit2->Text;
AnsiString result;
 
AnsiString query=("SELECT * FROM registration.user WHERE login = '"+Edit1->Text+"' AND password = '"+Edit2->Text+"'");
 
int f=mysql_errno(Con);
 
 
if(f==0)
{
    if (mysql_real_query(Con,query.c_str(),query.Length()))
{
    Form2->Show();
 
}
else // запрос не выполнен
{
    ShowMessage("Такого пользователя не существует");
}
    }
 
    else
    {
        ShowMessage("Error #: " + IntToStr(f) + char(13) + "Message: " + mysql_error(Con));
    }
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <mysql.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
MYSQL *Con;
MYSQL_RES *Res;
MYSQL_FIELD *Fields;
 
MYSQL_ROW row;
unsigned int num_fields;
unsigned int i;
 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 
    Con=mysql_init(Con);
    Con=mysql_real_connect(Con,"localhost","root","","registration",0,NULL,0);
 
    Res = mysql_store_result(Con);
    if (Res)
    {
        int num_fields = mysql_num_fields(Res);
        mysql_free_result(Res);
        AnsiString query=("SELECT * FROM registration.user WHERE login = '"+Form1->Edit1->Text+"'");
        mysql_real_query(Con,query.c_str(),query.Length());
        num_fields = mysql_num_fields(Res);
        while ((row = mysql_fetch_row(Res)))
        {
            unsigned long *lengths;
            lengths = mysql_fetch_lengths(Res);
            Form2->Label1->Caption=row[3];
            Form2->Label2->Caption=row[4];
            Form2->Label3->Caption=row[6];
 
        }
    }
}
//---------------------------------------------------------------------------