Проверка на длину полей при заполнении "Новая организация"

unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form6: TForm6;
 
implementation
 
uses Unit2, Unit4;
 
{$R *.dfm}
 
procedure TForm6.Button1Click(Sender: TObject);
var Osh: Integer;
begin
        Label1.Font.Color:=clBlack;
        Label4.Font.Color:=clBlack;
        
        Osh:=0;
        If Length(Trim(Edit1.Text))=0 then begin
        Edit1.SetFocus;
        Edit1.Text:='Введите наименование';
        Label1.Font.Color:=clRed;
        Edit1.SelectAll; end else
        If Length(Trim(Edit4.Text))=0 then begin
        Edit4.SetFocus;
        Edit4.Text:='';
        Label4.Font.Color:=clRed;
        Edit4.SelectAll; end else begin
 
        If Izmenenie=1 then begin
                If Sprav=3 then begin
                DM.Org.First;
                While not DM.Org.Eof do begin
                If DM.Org.FieldByName('INN').AsString=Edit5.Text then begin
                Osh:=1;
                ShowMessage('Такой ИНН уже имеется. Измините ИНН и повторите сохранение'); end;
                DM.Org.Next; end;
                If Osh=0 then begin
                DM.Org.First;
                While not DM.Org.Eof do begin
                If DM.Org.FieldByName('Org').AsString=Edit1.Text then begin
                Osh:=1;
                ShowMessage('Такая организация уже имеется. Измините наименование организации и повторите сохранение'); end;
                DM.Org.Next; end; end;
 
                If Osh=0 then begin
                DM.Org.Append;
                DM.Org.FieldByName('Org').AsString:=Edit1.Text;
                DM.Org.FieldByName('Adres').AsString:=Edit2.Text;
                DM.Org.FieldByName('Telephone').AsString:=Edit3.Text;
                DM.Org.FieldByName('BIK').AsString:=Edit7.Text;
                DM.Org.FieldByName('INN').AsString:=Edit4.Text;
                DM.Org.FieldByName('KPP').AsString:=Edit5.Text;
                DM.Org.FieldByName('RS').AsString:=Edit6.Text;
                DM.Org.FieldByName('Status').AsBoolean:=False;
                DM.Org.Post;
                Form6.Close; end; end;
        end;
 
        If Izmenenie=2 then begin
 
                If Sprav=3 then begin
                DM.Org.Edit;
                DM.Org.FieldByName('Org').AsString:=Edit1.Text;
                DM.Org.FieldByName('Adres').AsString:=Edit2.Text;
                DM.Org.FieldByName('Telephone').AsString:=Edit3.Text;
                DM.Org.FieldByName('BIK').AsString:=Edit7.Text;
                DM.Org.FieldByName('INN').AsString:=Edit4.Text;
                DM.Org.FieldByName('KPP').AsString:=Edit5.Text;
                DM.Org.FieldByName('RS').AsString:=Edit6.Text;
                DM.Org.FieldByName('Status').AsBoolean:=False;
                DM.Org.Post;
                Form6.Close; end;
        end;
        end;
end;
 
procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Label1.Font.Color:=clBlack;
Label4.Font.Color:=clBlack;
end;
 
procedure TForm6.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
        If Key <> #8 then
        If (not (Key in ['0'..'9'])) then Key := #0;
end;
 
procedure TForm6.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
        If Key <> #8 then
        If (not (Key in ['0'..'9'])) then Key := #0;
end;
 
procedure TForm6.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
        If Key <> #8 then
        If (not (Key in ['0'..'9'])) then Key := #0;
end;
 
procedure TForm6.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
        If Key <> #8 then
        If (not (Key in ['0'..'9'])) then Key := #0;
end;
 
procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        If Key = #39 then Key := #0;
end;
 
end.