StringGrid проверка на наличие в ячейке символа

[SPD]

У меня есть данные по горизотале месяцы по вертикале дни,

месяц/
число 1 2 3 ... 12
1 30s 54m 32s ... 43s
2 30s 34 50 ... 43s
3 42m 23s 55m ... 100m
.
.
.
31 35 33 34 ... 45
min 30 23 32 ... 43
date 1,2 3 1 ... 1,2
max 42 54 55 ... 100
date 3 1 3 ... 3

мне нужно проверить на наличие s и m и вывести их в строку Date...


я чтот такое делал но чтот не получается:

procedure TForm2.Button5Click(Sender: TObject);
var i,j:integer;
    s,s1:string;
begin
For i:=1 to 45 do
Begin
For j:=1 to 15 do              
s:=StringGrid1.Cells[j,i];
s1:=Copy(s,Pos('m',s)+1,length(s)-Pos('m',s)-1);
if s1='m' then begin
StringGrid1.Cells[j,41]:=StringGrid1.Cells[j,i];
//StringGrid2.Cells[1,j]:=StringGrid1.Cells[1,i];
end;
end;
end;