[BuRtOn]

Gracias amigos por ayudar que pudiera entender lo de los condicionales if y el resto de cositas, que pena si los ofendi con mis comentarios, recivi la sancion, pero es que en realidad estaba estrezado y aparte de eso , me tocaba responder por ese trabajo, miren como me quedo el programa, ha contraveneno aplique todo lo que me habias dicho....mira utilizando el if y el RadioBotton...

Código Delphi [-]
unit ufrquinto;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
type
  Tfrmquinto = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Image1: TImage;
    StaticText7: TStaticText;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmquinto: Tfrmquinto;
  resultado : real;
implementation
{$R *.dfm}
procedure Tfrmquinto.RadioButton1Click(Sender: TObject);
begin
try
If RadioButton1.Checked = True then
resultado := StrToFloat(Edit1.Text)+ StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton2Click(Sender: TObject);
begin
try
If RadioButton2.Checked = True then
resultado := StrToFloat(Edit1.Text)- StrToFloat(Edit2.Text);
except
MessageDlg('Error digita datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton3Click(Sender: TObject);
begin
try
If RadioButton3.Checked = True then
resultado := StrToFloat(Edit1.Text)* StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.RadioButton4Click(Sender: TObject);
begin
 
try
If RadioButton4.Checked = True then
resultado := StrToFloat(Edit1.Text)/ StrToFloat(Edit2.Text);
except
MessageDlg('Error Digita Datos',mtError,[mbok],0);
end;
end;
procedure Tfrmquinto.BitBtn1Click(Sender: TObject);
begin
Label1.caption:=FloatToStr(resultado);
end;
procedure Tfrmquinto.Edit2Change(Sender: TObject);
begin
try
  if StrToFloat(Edit2.Text) = 0 then
  ShowMessage('digita otro numero diferente a 0');
except
  MessageDlg('digita otro numero me que no sea 0',mtError,[mbok],0);
end;
end;
  end.

ya voy aprendiendo...creamen que han sido de gran ayuda....y eso que lo dificil fue que empece desde 0, y ustedes me han ayudado a crecer en delphi....