Vil ikke overføre data til ny form.

Hej eksperter

Jeg har lavet en lille søgemaskine hvor jeg bruger et dbgrid.
når så jeg søger på en ting og hvis der er flere hits vil jeg ligemeget hvad kunne klikke på den kollonne jeg skal bruge og derved åbne en ny form hvor at indholdet bliver vist.

Jeg har lavet følgende kode og det er fra søgemaskinen.

procedure TForm5.Button1Click(Sender: TObject);
begin
if php.Checked = true then
  begin
    if php1.Locate('k_title', edit1.Text, []) = true then
      begin
      php1.Close;
      php1.SQL.Text:='select * from kode where k_title like "%'+edit1.text+'%"';
      php1.Open;
      dbgrid2.Visible:=true;
      dbgrid1.Visible:=false;
      dbgrid3.Visible:=false;
      end
      else
      showmessage('PHP koden findes ikke...');
  end;
if email.Checked = true then
  begin
    if email1.Locate('email', edit1.Text, [])=true then
      begin
        email1.Close;
        email1.SQL.Text:='select * from mail where email like "%'+edit1.Text+'%"';
        email1.Open;
        dbgrid2.Visible:=false;
        dbgrid3.Visible:=false;
        dbgrid1.Visible:=true;
      end
      else
      showmessage('Email opsætning findes ikke...');
  end;
if delphi.Checked = true then
  begin
    if delphi1.Locate('d_title', edit1.Text, []) = true then
      begin
        delphi1.Close;
        delphi1.SQL.Text:='select * from delphi where d_title like "%'+edit1.Text+'%"';
        delphi1.Open;
        dbgrid1.Visible:=false;
        dbgrid2.Visible:=false;
        dbgrid3.Visible:=true;
      end
      else
      showmessage('Delphi koden findes ikke i systemet...');
  end;
end;

procedure TForm5.DBGrid1CellClick(Column: TColumn);
begin
form6.show;
end;

her kommer koden fra det vindue hvor at jeg gerne vil have vist indholdet fra den kollonne jeg klikker på.

procedure TForm6.FormCreate(Sender: TObject);
begin
statictext1.Caption:=form5.DBGrid1.Fields[pop3].AsString;
statictext2.Caption:=form5.DBGrid1.Fields[smpt].AsString;
statictext3.Caption:=form5.DBGrid1.Fields[email].AsString;
statictext4.Caption:=form5.DBGrid1.Fields[navn].AsString;
statictext5.Caption:=form5.DBGrid1.Fields[bruger].AsString;
statictext6.Caption:=form5.DBGrid1.Fields[pass].AsString;
end;

Jeg håber i kan hjælpe mig og på forhånd tak for hjælpen.

Delphiuser