Проверка строки по шаблону

[apx_angel]

Всем привет. У меня воткакой вопрос: есть форма с полем TEdit и кнопкой TButton. В поле Edit вводим текст(wmr-кошелек) и нажимаем на кнопку (Button) "Проверить". и есле текст(wmr-кошелек) имеет вид "Rцццццццццццц", где "R" - буква r латинского алфавита, "ц"-любая цифра.
Всем кто откликнется спасибо.

[Marsel737]

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  if Edit1.Text[1] in ['a'..'z'] then
  begin
    for I := 2 to Length(Edit1.Text) do
    begin
      if Not (Edit1.Text[I] in ['0'..'9'] then
      begin
        ShowMessage(IntToStr(I) + '-й символ  не цифра!!');
        Exit;
      end;
    end;
  end else
    ShowMessage('Первый символ не латинская буква!!!');
end;

[legendary]

Попробуй вместо Editа использовать MaskEdit