Como gravar caminho de imagens no banco de dados e exibi-las depois

CREATE TABLE IMAGEM (
    ID INTEGER NOT NULL,
    TITULO_IMAGEM VARCHAR(40) CHARACTER SET WIN1252 COLLATE WIN1252,
    CAMINHO_IMAGEM VARCHAR(500) CHARACTER SET WIN1252 COLLATE WIN1252);
ALTER TABLE IMAGEM ADD CONSTRAINT PK_IMAGEM PRIMARY KEY (ID); 

procedure TForm2.Conectar;
begin
    //Procedimento para conectar-se ao banco de dados
    Conexao := TSQLConnection.Create(nil);

    try
        //Passa os parâmetros para o objeto Conexao
        Conexao.Connected := false;
        Conexao.LoginPrompt := false;
        Conexao.Params.Clear;
        Conexao.ParamsLoaded := True;
        Conexao.DriverName := 'Firebird';
        Conexao.GetDriverFunc := 'getSQLDriverINTERBASE';
        Conexao.LibraryName := 'dbxfb.dll';
        Conexao.VendorLib := 'fbclient.dll';
        Conexao.Params.Add('drivername=Firebird');
        Conexao.Params.Add('hostname=LOCALHOST');
        Conexao.Params.Add('user_name=SYSDBA');
        Conexao.Params.Add('password=masterkey');
        Conexao.Params.Add('port=3050');
        Conexao.Params.Add('Database=C:\Projeto Imagens\DEVMEDIA.fdb');
        Conexao.Connected := true;
     Except
        on E:Exception do
        ShowMessage('Erro ao acessar banco de dados!'#13#10 + E.Message);
     end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    //Inicia uma conexão com o banco de dados
    Conectar();
    //Carrega as informações no DDGrid
    CarregaGrid();
end;

procedure TForm2.btnCarregaImagemClick(Sender: TObject);
var
  OpenDialog: TOpenDialog;
begin
     //Carrega a janela para procurar o Imagem
     try
        OpenDialog := TOpenDialog.Create(nil);
        if OpenDialog.Execute then
        begin
            edtDescricao.Clear;
            Caminho := OpenDialog.FileName;
            imgImagem.Picture.LoadFromFile(Caminho);
        end;
     finally
         FreeAndNil(OpenDialog);
     end;
end;

/Procedimento para incluir imagem no banco
procedure TForm2.IncluirImagem(Descricao: string; var Caminho: string);
begin
     try
        FSql := 'INSERT INTO IMAGEM (TITULO_IMAGEM, CAMINHO_IMAGEM)VALUES(:DESC, :CAMINHO)';

        qryAux := TSQLQuery.Create(nil);
        qryAux.SQLConnection := FConexao;
        qryAux.Close;
        qryAux.SQL.Clear;
        qryAux.SQL.Add(FSql);
        qryAux.Params[0].AsString := Descricao;
        qryAux.Params[1].AsString := Caminho;
        FReturn := qryAux.ExecSQL();

        if FReturn > 0 then
           ShowMessage('Registro gravado com sucesso!');

        CarregaGrid();
     finally
        FreeAndNil(qryAux);
     end;
end;

//Procedimento para alterar imagem no banco
procedure TForm2.AlterarImagem(Id: integer; Descricao: string; var Caminho: string);
begin
     try
        FSql := 'UPDATE IMAGEM SET TITULO_IMAGEM=:DESC, CAMINHO_IMAGEM=:CAMINHO WHERE ID=:ID';

        qryAux := TSQLQuery.Create(nil);
        qryAux.SQLConnection := FConexao;
        qryAux.Close;
        qryAux.SQL.Clear;
        qryAux.SQL.Add(FSql);
        qryAux.Params[0].AsString := Descricao;
        qryAux.Params[1].AsString := Caminho;
        qryAux.Params[2].AsInteger := Id;
        FReturn := qryAux.ExecSQL();

        if FReturn > 0 then
           ShowMessage('Registro alterado com sucesso!');

        CarregaGrid();
     finally
        FreeAndNil(qryAux);
     end;
end;

//Procedimento para exclusão do registro
procedure TForm2.ExcluirImagem(Id: integer);
begin
     try
        FSql := 'DELETE FROM IMAGEM WHERE ID = :ID';

        qryAux := TSQLQuery.Create(nil);
        qryAux.SQLConnection := FConexao;
        qryAux.Close;
        qryAux.SQL.Clear;
        qryAux.SQL.Add(FSql);
        qryAux.Params[0].AsInteger := Id;
        qryAux.ExecSQL();

        CarregaGrid();
        imgImagem.Picture := nil;
     finally
        FreeAndNil(qryAux);
     end;
end;

//Procedimento para exibir os dados no DBGrid
procedure TForm2.CarregaGrid;
begin
    try
       FSql := 'SELECT ID, TITULO_IMAGEM AS TITULO, CAMINHO_IMAGEM AS CAMINHO FROM IMAGEM';

       //Verfica se já existe um objeto TSQLQuery intânciado
       if not Assigned(qryDados) then
       begin
           qryDados := TSQLQuery.Create(nil);
           qryDados.SQLConnection := FConexao;
       end;

       //Verfica se já existe um objeto TDataSetProvider intânciado
       if not Assigned(dspDados) then
          dspDados := TDataSetProvider.Create(nil);

       //Verfica se já existe um objeto TClientDataSet intânciado
       if not Assigned(cdsDados) then
       begin
          cdsDados := TClientDataSet.Create(nil);
          cdsDados.ProviderName  := dspDados.Name;
          cdsDados.PacketRecords := -1;
          cdsDados.AfterScroll   := Self.CarregarImagem;
       end;

       //Verfica se já existe um objeto TDataSource intânciado
       if not Assigned(dtsDados) then
          dtsDados := TDataSource.Create(nil);

       //Prepara a qryDados
       qryDados.Close;
       qryDados.SQL.Clear;
       qryDados.SQL.Add(FSql);
       qryDados.Open;

       //Atribui o objeto qryDados a propriedade DataSet do Provider
       dspDados.DataSet := qryDados;

       //Prepara o ClientDataSet
       cdsDados.Close;
       cdsDados.SetProvider(dspDados.DataSet);
       cdsDados.Open;

       //Atribui o objeto cdsDados a propriedade DataSet do DataSource
       dtsDados.DataSet := cdsDados;

       //Seta a propriedade DataSource do DBGrid
       grdImagem.DataSource := dtsDados;

    Except
        on E:Exception do
        ShowMessage('Erro ao carregar dados no DBGrid!'#13#10 + E.Message);
    end;
end;

//Procedimento para carregar a imagem no imgImagem
procedure TForm2.CarregarImagem(DataSet: TDataSet);
begin
    //Verifica se o caminho da imagem é válido
    if FileExists(DataSet.Fields[2].AsString) then
    begin
       imgImagem.Picture.LoadFromFile(DataSet.Fields[2].AsString);
       edtDescricao.Text := DataSet.Fields[1].AsString;
    end
    else
    begin
       imgImagem.Picture := nil;
       edtDescricao.Clear;
    end;
end;