Помогите ламеру с Edit

[Demien]

Если я правильно понял, тебе надо при появлении в Edit определенного текста изменить цвет фона?
Попробуй ввести условие:

if Edit1.text='трали-вали' then
Edit1.Color:=ClRed;

[Showy]

Если у тебя несколько Edit на форме и тебе надо из них всех засвитить только то имя которого содержится в переменной s, то сделай так:

var
i:integer;
s:string;
begin
s:=Edit1.Name;
for i:=0 to form1.ControlCount-1 do begin
if form1.Controls[i].name=s then
TEdit(form1.Controls[i]).Color:=clred;
end;
end;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TEdit then
if (Components[i] as TEdit).Name='s' then
(Components[i] as TEdit).Color:=clred;
end;

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
begin
TEdit(FindComponent('edit1' {или какая-то переменная})).Color := clRed;
end;