Как олучить текст итема в ListView?

[TwiX]

Знаю строку и столбец.
Не смог разобрался в LVM_GETITEMTEXT=\

[TwiX]

Апппппппппппп

[psycho-coder]

ListView на чужой форме или на твоей?

[TwiX]

ЛистВьев чужой программы

[Alter]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, CommCtrl{<<- важно!!!!, ииначе работать не будет};

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  function GetItem(Handl:HWND; Index: Integer): TListItem;
  function ListView_GetItem(hWnd: HWND; var pItem: TLVItem): Bool;


implementation

{$R *.dfm}

function GetItem(Handl:HWND; Index: Integer): TListItem;
var
  Item: TLVItem;
begin
  Result := nil;
      with Item do
      begin
        mask := LVIF_PARAM;
        iItem := Index;
        iSubItem := 0;
      end;
      if ListView_GetItem(Handl, Item) then Result := TListItem(Item.lParam);
end;

function ListView_GetItem(hWnd: HWND; var pItem: TLVItem): Bool;
begin
  Result := Bool( SendMessage(hWnd, LVM_GETITEM, 0, Longint(@pItem)) );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit2.Text := GetItem(ListView1.Handle, StrToInt(Edit1.Text)).Caption;
end;

end.