[xdessx]

Ты забыл(а) begin поставить:

Код:

procedure TForm2_new_schet.But_perevodClick(Sender: TObject);
var dol,evro,sum,rez,dol_pr,evro_pr:single;
begin
  dol:=StrToFloat(Edit_kurs_dol.Text);
  evro:=StrToFloat(Edit_kurs_evro.Text);
  sum:=StrToFloat(Edit15_perevod.Text);
  { If Not TryStrToFloat(Edit15_perevod.Text,sum) then
   begin
    ShowMessage('Вы ввели не корректную сумму');
   // Exit;
    end; }
 if (CB_valuta_per.Text='Рубль') then
  begin
    if (CB_perevod_v.Text='Доллар') then begin
     rez:=sum/dol;
     Label24.Caption:=FloatToStr(rez) + ' доллара';
    end;
    if (CB_perevod_v.Text='Евро') then begin
     rez:=sum/evro;
     Label24.Caption:=FloatToStr(rez) + ' евро';
    end;
 end;
 dol_pr:=StrToFloat(Edit_dol_prod.Text);
 evro_pr:=StrToFloat(Edit_evro_prod.Text);
 if (CB_valuta_per.Text='Доллар') and (CB_perevod_v.Text='Рубль') then begin
  rez:=sum*dol_pr;
  Label24.Caption:=FloatToStr(rez) + ' рубля';
 end;
 if (CB_valuta_per.Text='Евро') and (CB_perevod_v.Text='Рубль') then begin
  rez:=sum*evro_pr;
  Label24.Caption:=FloatToStr(rez) + ' рубля';
 end;
end;

Для проверки вводимых символов повесь событие на onKeyPress:

Код:

if not (key in ['0..9',#8,#13,'.']) then begin
 Showmessage('Разрешен ввод только цифр!');
 key := #0;
end;