Ну, если в 2х словах, то примерно так:
Перебираешь ВСЕ имаджи. Если текущий не пустой, то пропускаешь его.
Если пустой, то проверяешь координаты. Если меньше, чем у уже выбранного, то запоминаешь новый.
Код пишу прямо тут, так что могу что-то напутать в названиях свойств и методов:
Код:
var
I : Integer;
TopImg : TImage;
begin
TopImg := Nil;
For I := 0 To ScrollBox1.ComponentCount-1 Do
If ScrollBox1.Components[i] Is TImage Then
Begin
If (ScrollBox1.Components[i] As TImage).IsEmpty Then
Begin
If TopImg = Nil
Then TopImg := ScrollBox1.Components[i] As TImage
Else
If (ScrollBox1.Components[i] As TImage).Top < TopImg.Top
Then TopImg := ScrollBox1.Components[i] As TImage
End;
End;