дайте совет!

[Cassius]

как сделать чтоб по нажатию картинки выходили данные в красном квадрате , данные в базе *.dbm. в красном компонент DBText.

примерно что хочу видеть
form2.showmodal;
pnumber:=5;
по изменению порядкового номера, чтоб и данные менялись в красном квадрате.

[Stilet]

А что это за картинка? Какой компонент используется?

[Cassius]

Image. нажимаешь на элемент. вылазит форма след (с красным квд.)

[Cassius]

Сообщение от Stilet

А что это за картинка? Какой компонент используется?

Image. нажимаешь на элемент. вылазит форма след (с красным квд.)

[Slym]

form2.ТвойКвери.Params.ParamByBame( 'pnumber').Value:=5;
form2.ТвойКвери.Requery;
а DBText зацепи на ДатаСурс прицепленый к ТвойКвери

[Небесный]

Я например у себя что-то подобное делал так:

На каждый Image'х писал в свойствах tag = 1, 2, ..колличество_Image

Далее делал процедуру обработки клика, например.

procedure TForm1.OneClick(Sender: TObject);
var
  image: TImage;
begin
  if Sender is TImage then
    image:=Sender as TImage;
  ShortOneClick(image.tag); //где тег Image передавал другой процедуре, 
  //Вы же можете в свою очередь здесь открывать форму и передавать ей номер тега нажатого Image'a
end;

Далее в каждом Image в OnClick я указывал свою процедуру OneClick

И еще не забудьте объявить свою процедуру вверху в блоке type
Типа так.

procedure OneClick(Sender: TObject);

Надеюсь, чем-то поможет.

Правда это сделано было для групки (10) Image, в вашем случае лепить сотню Image - не рационально. (((
Одним Image даже не знаю, как и обойтись, разве что как-то по-пиксельно пробовать разбирать, где был клик.

[Willer55]

Я не знаю правильно или нет подсказываю, но можно разбить один image на клетки и сделать матрицу со значениями(какой элимент в этой клетке) и при нажатии на image проверять в каком месте был клик и относительного этого берем элемент из матрицы.
и дальше открываем вторую форму и передаем.

const
// Размеры клетки на imag'e
  CELL_W = 32; 
  CELL_H = 32;

var
  Form1: TForm1;
  matrixElem : array[0..9,0..9]of integer; // матрица элементов
implementation

{$R *.dfm}
// Тут нету функции заполнения матрицы, она берется из базы
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  GetElem(x,y); // получаем элемент
end;

procedure TForm1.GetElem(x,y :integer);
var
  x1,y1, elem : integer;
begin
  x1 := image1.Width div CELL_W;
  y1 := image1.Height div CELL_H;
  elem := matrixElem[x1,y1]; // получаем сам элемент
  // и тут запускаем Форму и передаем elem
end;

Извините если не понятно. Я новичок здесь.