переменная переменной...

[selenux]

Только статический массив тут, наверное, не подходит - с изменением курса придется перекомпиливать. Их лучше грузить динамически из отдельного справочника, например XML.

[raxp]

selenux, решение изложено для конкретной задачи, раз будет изменяться, кто-ж вам мешает на динамический переделать ...как оно будет реализовано - это сугубо ваше решение.

[Marsel737]

Решил тоже добавить свои 10 центов

unit kurs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sEdit, sComboBox, sSkinProvider, sSkinManager;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sComboBox1: TsComboBox;
    sComboBox2: TsComboBox;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton3: TsButton;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a,b: real;
  usd,uah,rur,eur: real;
  Koef: real;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
if ((sComboBox1.Text = 'из') or (sComboBox2.Text = 'в')) then
MessageDlg('Выберите курс валют!',mtWarning,[mbOk,mbCancel],0)
else
//////////////////////////////////////////////
Case sComboBox1.ItemIndex of
  0: Koef := 1;
  1: Koef := 7.998;
  2: Koef := 10.812;
  3: Koef := 0.265;
end;
uah:=(StrToFloat(sEdit1.Text)*Koef)
//////////////////////////////////////////////
usd:=(uah/7.998);
eur:=(uah/10.812);
rur:=(uah/0.265);
///////////////////////////////////////////////
end;

end.

[Psyfyone]

Selenux, это друг с Талдома Напиши мне, а то уж год не виделись psyfyone@inbox.ru