Что не так

[Thandem]

Здравствуйте,у меня такая проблема...

Лежат на форме 3 компонента CheckBox.. Хочу сделать так:

if CheckBox1.Checked then
Edit1.Text := '500';
Edit2.Text := '400';
if CheckBox2.Checked then
Edit1.Text := '600';
Edit2.Text := '500';
if CheckBox3.Checked then
Edit1.Text := '700';
Edit2.Text := '600';

Почему в Edit2 все время последнее число..? Что бы я не делал все время в в Edit2 число "600"

Пробовал разделять... писал между ними Begin.. не помогает.
Книги есть,читал.. но там не написано как работать когда много CheckBox`ов на форме.

Подскажите что сделать?
За ранее спасибо.

[DIgorevich]

Попробуй использовать Radiogroup. Или хотя бы так:

if CheckBox1.Checked then
begin
  Edit1.Text := '500';
  Edit2.Text := '400';
end;
if CheckBox2.Checked then
begin
  Edit1.Text := '600';
  Edit2.Text := '500';
end;
if CheckBox3.Checked then
begin
  Edit1.Text := '700';
  Edit2.Text := '600';
end;

[Thandem]

Спасибо вам огромное. Очень помогли.
Все работает.

Что бы не создавать новую тему,скажи что тут не так.. ((

begin
if WinExec('"C:\Program Files\WinRAR\WinRAR.exe" k File.rar', 0) then
Application.MessageBox ('Работает', 'Работает', MB_OK+MB_ICONASTERISK)
else
Application.MessageBox ('Не работает', 'Ошибка', MB_OK+MB_ICONASTERISK)
end;

Ошибка такова..

Build
Checking project dependencies...
Compiling Project1.dproj (Debug configuration)
[DCC Error] Unit1.pas(91): E2012 Type of expression must be BOOLEAN
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[_-Re@l-_]

if WinExec('"C:\Program Files\WinRAR\WinRAR.exe" k File.rar', 0) then

Ну, сколько я помню, WinExec это процедура, у неё нет возвращаемого значения, её нельзя использовать так как ты.

[Thandem]

Понял. Значит не как нельзя проверить выполнено ли действие или нет?

[Johnson]

http://www.programmersforum.ru/showthread.php?t=994
а если нужно чтоб искало именно окно - то последние 2 сообщения в той теме...