Задача на составное уровнение (Delphi)

[VINIPUX_A]

Я понимаю что глупо просить о помощи тем более такая легкая задача,но я просто только начинаю программировать на делфи, и не много еще знаю,суть вот в чем,я составил интерфейс программы,и выполнил первое действие,и не могу придумать так что бы он выполнял второе действие, задача простая!::: Сравнить три числа,вывести на форму большее из них,и сумму меньших чисел! Программисты помогите с задачей!

[Stilet]

Показывай что уже сделал.

[VINIPUX_A]

begin
if StrToInt(Edit1.Text)>StrToInt(Edit2.Text)or StrToInt(Edit3.Text)then
Label5.Caption:=IntToStr(StrToInt(Edit1.Text))
else
Label5.Caption:=IntToStr(StrToInt(Edit2.Text)or StrToInt(Edit3.Text))
end;
end.

тут программа ошибается иногда,ну это ладно,я знаю как исправить!а вот дальше что бы выводило сумму не могу придумать как сделать

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
var a:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if StrToInt(Edit1.Text)>StrToInt(Edit2.Text)or StrToInt(Edit3.Text)then
Label5.Caption:=IntToStr(StrToInt(Edit1.Text))
else
Label5.Caption:=IntToStr(StrToInt(Edit2.Text)or StrToInt(Edit3.Text))
end;
end.

это весь скелет программы!




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

VINIPUX_A, разбирайтесь

procedure TForm1.Button1Click(Sender: TObject);
begin
  If (StrToInt(Edit1.Text) >= StrToInt(Edit2.Text)) and (StrToInt(Edit1.Text) >= StrToInt(Edit3.Text)) then
  Begin
    Label1.Caption:=(Edit1.Text+#10#13+IntToStr(StrToInt(Edit2.Text)+StrToInt(Edit3.Text)))
  End
  Else
  If (StrToInt(Edit2.Text) >= StrToInt(Edit1.Text)) and (StrToInt(Edit2.Text) >= StrToInt(Edit3.Text)) then
  Begin
    Label1.Caption:=(Edit2.Text+#10#13+IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit3.Text)))
  End
  Else
  If (StrToInt(Edit3.Text) >= StrToInt(Edit2.Text)) and (StrToInt(Edit3.Text) >= StrToInt(Edit1.Text)) then
  Begin
    Label1.Caption:=(Edit3.Text+#10#13+IntToStr(StrToInt(Edit2.Text)+StrToInt(Edit1.Text)))
  End;
end;

[VINIPUX_A]

Большое спасибо за идею!теперь я решу эту задачу!

[19vitek]

А может так?

procedure TForm1.Button1Click(Sender: TObject);
var
max:integer;
begin
  max:=StrToInt(Edit1.Text);
  If  StrToInt(Edit2.Text)>max then max:=StrToInt(Edit2.Text);
  If  StrToInt(Edit3.Text)>max then max:=StrToInt(Edit3.Text);
  label1.caption:=inttostr(max);
  label2.caption:=inttostr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text)-max);
  end;