StringGrid - selektywne wprowadzanie danych

Interesuje mnie wprowadzanie różnych danych do poszczególnych kolumn w StringGrid. Np. jedna kolumna przyjmuje tylko cyfry, inna tylko znak +, a jeszcze inna tylko litery. Jak to zrobić?

dla zdarzenia StringGrid1KeyPress (zakładka Events w inspektorze objektów) wpisz:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with stringgrid1 do
     begin
    if col = 1 then
     if key in ['0'..'9',#8] then key:=key else key:=#0;
     // w kolumnie '1' przyjmuje cyfry i bacspace
     if col = 2 then
      if  key = '+' then key:= key else key:=#0; // kolumna '2' przyjmuje tylko '+'
      if col = 3 then
       if key in ['a'..'z','A'..'Z',#8] then key:=key else key:=#0;
        // kolumna '3' przyjmuje duże, małe litery i bacspace
      end;
end;