Необходимо при создании формы выполнить прокрутку компонента TListView:

ListView1.Scroll(0, 20);

Если вставлять в OnShow, OnActivate, OnCreate формы, то эффекта нет. Если вставить в обработчик нажатия кнопки, то всё нормально. Но необходимо именно сразу при создании формы.
Помогите пожайлуста...

Необходимо сделать именно прокрутку. С Selected пока проблем нет. То есть мало сделать элемент списка выбранным, нужно ещё, чтобы он появился перед глазами юзера.

2 ZrenBy: Если я буду посылать сообщение при OnShow, ловить его и обрабатывать , то разве это не тоже самое, как если бы я просто вставил обработчик этого сообщения в OnShow?

Блин, если параметры-константа, то по OnPaint() действительно получается. Но проблема, конечно, прокрутить не на 20, 20-это было для простоты восприятия. В полном варианте по OnShow определяем нужный item:

Prom:=ListView1.FindCaption(0, Edit1.Text, false, true, false);

А уже далее нужно каким то макаром прокрутить до него самого:

ListView1.Scroll(0, ListView1.Items.Item[Prom.index-1].Position.y);

2 eNose: Спасибо. Работает. Есть минус: найденный элемент находится в нижней части области списка. Если скролить вручную, то можно сделать его посередине списка или вначале.
Да и вообще, задача вроде не сложная, а не получается. Так что у кого будут идеи на счёт скрола, пишите пожайлуста...

procedure TForm2.FormShow(Sender: TObject);
var
i: integer;
begin
Edit1.Text:='99';
first:=true;

for i:=0 to 1000 do
begin
Prom:=ListView1.Items.Add;
Prom.Caption:=IntToStr(i);
end;

Prom:=ListView1.FindCaption(0, Edit1.Text, false, true, false);

if Prom<>nil then
begin
Prom.Selected:=true;
end;
ListView1.SetFocus;
end;

procedure TForm2.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
if first then
begin
first:=false;
ListView1.Scroll(0, ListView1.Items.Item[Prom.index-1].Position.y);
end;
end;
Не работает! Или я что-то не так делаю?

TopItem - read only property. Как при его помощи можно позиционировать?