Delphi-从DBGrid获取所选行的所有列名

我使用以下代码显示从我在

DBGrid

中选择的行到

备忘录的每一列的值

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  with DBGrid1 do
  begin
    for i:=0 to FieldCount-1 do
      Memo1.Lines.Add(Fields[i].AsString);
  end;
end;

有人知道如何在值之前获得列名吗

例如，第一列名为
ID
，
memo
上显示的第一列
value
是
ID
值（比如15）-如果需要列名和值，我希望它是ID:15（列名称：列值）

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  with DBGrid1 do
  begin
    for i:=0 to Columns.Count-1 do
      Memo1.Lines.Add(Columns[i].FieldName+':'+ Columns[i].Field.AsString);
  end;
end;

也许“displaylabel”对我们来说也很有趣you@ChristineRoss谢谢你的建议，我也会考虑的：）