подскажите как скопировать одну ячейку, ту, у которой мышка находиться.

а куда скопировать то? и что ты имеешь ввиду под "ту у которой мышка находится"? типа над которой курсор чтоли располагается?

"ту, у которой мышка находиться", подразумеваеься выделенная?
если да, то:
StringGrid.Cells[Col][Row]

Если он имел в виду, что нужна именно та ячейка, над которой находится указатель мыши, то наверное, придётся считать координаты указаталя и самого грида.

имелось ввиду следующее: есть StringGrid, надо скопировать содержимое ячейки.

скопировать содержимое КАКОЙ ячейки?

Если тебя так устроит:

<чтонить текстовое>:=StringGrid1.cells[x,y]

ет если тебе определенную какуюто ячеку нада во чтонить скопировать

поясняю: надо скопировать ячейку, которая выбирается курсором.

тогда -- то, что я писал
StringGrid.Cells[Col, Row]

Если скопировать в буфер, то:
clipboard.astext :=StringGrid.Cells[ACol, ARow];
И это надо повесить на OnSelectCell();

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var p,j:integer;
begin
StringGrid1.MouseToCell(x,y,p,j);
Label5.Caption:=IntTostr(p);
Label6.Caption:=IntTostr(j);
end;

procedure TForm1.N8Click(Sender: TObject);
begin
d:=StrToInt(Label5.Caption);
f:= StrToInt(Label6.Caption);
Edit3.Text:=StringGrid1.Cells[d,f];
end;

procedure TForm1.N17Click(Sender: TObject);
begin
d:=StrToInt(Label5.Caption);
f:= StrToInt(Label6.Caption);
Edit3.Text:=StringGrid1.Cells[d,f];
end;

Метод придуман Patrius, но доработан мной.