Калькулятор в Delphi7

[Vlad20]

ВЫБИВАЕТ ОШИБКА КРАСНЫМ VAR

unit Main; 
interface 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms. Dialogs, StdCtrls, ExtCtris;
type
TForm1 = class(TForm) 
Edit1: TEdit; 
Edit2: TEdit; 
Label1: TLabel; 
Label2: TLabel; 
RadioGroup1: TRadioGroup; 
Button1: TButton; 
Edit3: TEdit; 
Label3: TLabel;
procedure Button1ClickCSender: TObject);
procedure Edit1KeyPress(Sender: TObject: var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{Private declarations} 
public
{Public declarations} 
end; 
var
  Form1: TForm1; 
implementation {$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer; 
с:real;      
begin	
  if (Edit1.Text<>’’) and (Edit2.Text<>’’) then 
begin 
a:=StrToInt(Edit1.text); 
b:=StrToInt(Edit2.text); 
Edit3.text:=''; 
RadioGroup1.ItemIndex} 
Case RadioGroup1.ItemIndex of
0	: c:=a+b; 
1	: c:=a-b; 
2	: c:=a*b; 
3	:  if b=0 then ShowMessage('Ha ноль делить нельзя!')
else c:=a/b;
end;

if RadioGroup1.ItemIndex <>3 than 
Edit3.text:=F1oatToStrF(c,ffGeneral,10,4)

else if b<>0 then
Edit3.text:=FloatToStrF(c,ffGeneral,10.4) 
end
else ShowMessage('He заданы значения'); 
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   
if not (Key in ['0'..'9','+','-']) then Key:=#0; 
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin  
if not (Key in ['0'..'9','+','-']) then Key:=#0; 
end; 
end.

[WinCoder]

Ну так ты попробуй не копипастить код, а писать его сам. И параллельно попробуй начать учиться. Говорят помогает от "выбивает ошибку".
P.S. для смеху. Нашёл с десяток ошибок, и ни одной связанной с VAR...

[Stilet]

ВЫБИВАЕТ ОШИБКА КРАСНЫМ VAR

Скриншот в отличном какчестве в студию.

[MotoArhangel]

Этот код так для смеха выложил? Сразу в глаза бросилось не вникая в код 11 ошибок.

[Iron Monk]

Сообщение от MotoArhangel

Этот код так для смеха выложил? Сразу в глаза бросилось не вникая в код 11 ошибок.

Там банальная защита от лоха))) с-кириллическая, 1 вместо l и т.д.
А код-то, рабочий.

[Utkin]

А код-то, рабочий.

По-любому. Особенно then. Почти дзен .