[Yurk@]

Snake22, ну внятного задания нам так и не дали)
Alegun, забегая на перед, а если будет несколько букв и\или двухзначное число? немного доработав вариант Alegun

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s : string;
  p : integer;
begin
  s:=(Sender as TBitBtn).Caption;
  p := Pos('/', s);
  if RadioGroup1.ItemIndex = 0 then
    Edit1.Text := Copy(s, 1, p-1)
  else
    Edit1.Text := Copy(s, p+1, Length(s)-p);
end;