como comparar???????????

pessoal, a quantidade maxima de caracteres no edit tem que ser < 5

COMO EU COMPARO? fiz o código abixo mas está legal


VAR
max:integer;
Nome,Nome2,Nome3,Nome4,Nome5:integer;
begin
max:=5;
IF (Nome > max)
THEN
BEGIN
Nome := Length(Edit6.Text);
Nome2 := Length(Edit7.Text);
Nome3 := Length(Edit8.Text);
Nome4 := Length(Edit9.Text);
Nome5 := Length(Edit10.Text);
Edit11.Text:= IntToStr(Nome);
Edit12.Text:= IntToStr(Nome2);
Edit13.Text:= IntToStr(Nome3);
Edit14.Text:= IntToStr(Nome4);
Edit15.Text:= IntToStr(Nome5);
Edit1.Text:=´O´;
Edit2.Text:=´O´;
Edit3.Text:=´O´;
Edit4.Text:=´O´;
Edit5.Text:=´O´;
end
ELSE
ShowMessage(´Quantidade de caracters maior que o permitido!´);