Exibir imagens mais rápido selecionando o registro pelo DBGrid

Prezados,
Tenho um formulário com um DBGrid e um TImage. Estou selecionando o caminho das imagens pelo DBGrid , mas elas estão aparecendo lentamente. Como fazer para que elas apareçam rápidamente ao selecionanr o registro no dbGrid. Segue meu código abaixo:
procedure TFrmCadastroHQ.CarregarImagemSelecionada;
begin
if not dmHQ.cdsHQ.IsEmpty then
begin
dmHQ.cdsHQ.DisableControls; // Desabilita atualizações para melhor desempenho
try
if not dmHQ.cdsHQ.FieldByName('FotoHQ').IsNull then
begin
imgHQGrid.Picture.LoadFromFile(dmHQ.cdsHQ.FieldByName('FotoHQ').AsString);
with imgHQGrid.Picture.Graphic do
//Horizontal
// Canvas.CopyRect(Canvas.ClipRect,
// Canvas, Rect(Width-1, 0, -1, Height));

//Vertical
Canvas.CopyRect(Canvas.ClipRect,
Canvas, Rect(0, Height - 1, Width, -1));
edtFotoHQ.Text := dmHQ.cdsHQ.FieldByName('FotoHQ').AsString;
imgHQGrid.Visible := True;
end
else
begin
imgHQGrid.Visible := False;
ShowMessage('Registro não contém uma imagem associada.');
end;
finally
dmHQ.cdsHQ.EnableControls; // Reabilita atualizações
end;
end
else
begin
imgHQGrid.Visible := False;
ShowMessage('Nenhum registro selecionado.');
end;
end;

procedure TFrmCadastroHQ.DBGrid1CellClick(Column: TColumn);
begin
CarregarImagemSelecionada;
end;

procedure TFrmCadastroHQ.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Chr(Key)<>#13) then exit;

if (DBGrid1.SelectedIndex+1<>DBGrid1.FieldCount) then
DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex+1
else
begin
if (DBGrid1.SelectedIndex=DBGrid1.FieldCount-1) then
begin
TClientDataSet(datasource1.DataSet).Next;
if TClientDataSet(datasource1.DataSet).EOF then
TClientDataSet(datasource1.DataSet).Append;
DBGrid1.SelectedIndex:=DBGrid1.SelectedIndex-DBGrid1.FieldCount-1;
end;
end;
end;