[NumLock]

простым кликом мыши вроде как не сделать.

Код:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
var
  ItemAt: TListItem;
  i: Integer;
  w: Integer;
begin
  ItemAt:=ListView1.GetItemAt(X, Y);
  if Assigned(ItemAt) then
  begin
    w:=0;
    for i:=0 to ListView1.Columns.Count-1 do
    begin
      if (X>=w) and (X<=w+ListView1.Columns[i].Width) then
      begin
        if i>0 then Edit1.Text:=ItemAt.SubItems[i-1]
        else Edit1.Text:=ItemAt.Caption;
        Edit1.Tag:=MakeLong(i, ItemAt.Index);
        Edit1.Left:=w;
        Edit1.Top:=ItemAt.GetPosition.Y;
        Edit1.Width:=ListView1.Columns[i].Width;
        Edit1.Height:=ItemAt.DisplayRect(drBounds).Bottom-ItemAt.DisplayRect(drBounds).Top;
        Edit1.Parent:=ListView1;
        Edit1.Show;
        Edit1.SelectAll;
        Edit1.SetFocus;
        Break;
      end else w:=w+ListView1.Columns[i].Width;
    end;
  end;
end;