[Delphi 7].

[StudentMarat]

Вроде начал решать задачку по Delphi. Застрял, дальше не получается.

Вот сама задача:

На форме располагаются компоненты: таблица StringGrid 4х6, в первую ячейку которого занесена фамилия студента; четыре кнопки cо стрелками , , , ; редактор MaskEdit для отображения координат текущей ячейки и кнопка Close. Нажатие кнопок со стрелками приводит к перемещению в указанном направлении фамилии. Редактор позволяет ввести новые координаты ячейки в указанном формате и диапазоне с клавиатуры, а нажатие клавиши Enter приводи к перемещению фамилии в новое место. Остальные ячейки таблицы при этом очищаются.

А вот сам ещё не готовый проект

[StudentMarat]

А вот сам код:

procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.ColCount:=7;
StringGrid1.RowCount:=5;
StringGrid1.Cells[0,0]:='';
StringGrid1.Cells[1,0]:='1 столбец';
StringGrid1.Cells[2,0]:='2 столбец';
StringGrid1.Cells[3,0]:='3 столбец';
StringGrid1.Cells[4,0]:='4 столбец';
StringGrid1.Cells[5,0]:='5 столбец';
StringGrid1.Cells[6,0]:='6 столбец';
StringGrid1.Cells[7,0]:='7 столбец';
StringGrid1.Cells[0,1]:='1 строка';
StringGrid1.Cells[0,2]:='2 строка';
StringGrid1.Cells[0,3]:='3 строка';
StringGrid1.Cells[0,4]:='4 строка';
stringgrid1.Cells[1,1]:='Иванов Иван';
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ACol:=ACol+1;
if (ACol>5) then
begin
exit;
end
else
begin
stringgrid1.Cells[ACol,1]:='';
stringgrid1.Cells[ACol+1,1]:='Иванов Иван';
end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ACol:=ACol-1;
if (ACol<2) then
begin
exit;
end
else
begin
stringgrid1.Cells[ACol,1]:='';
stringgrid1.Cells[ACol-1,1]:='Иванов Иван';
end;
end;

Можете подсказать, как доделать этот проект