[cadil]

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

s : string

s := Label1.Caption;
ShowMessage(s[4]);

покажет 4-й символ.

Спасибо!
Решил задачку несколько по-другому:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
date2: string;
pos1, pos2:integer; //символы в записи
begin
date2:=table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
pos1:= pos('1',date2);
pos2:= pos('0',date2);
      if ((pos1 = 4) and  (pos2 = 5))
       then
        begin
    Label11.Caption:='выполнено в октябре';
        end
      else
        begin
   Label11.Caption:='Error!';
        end;
end;