Vielleicht so? Er weiß ja nicht, dass Sender ein TEdit ist...
Delphi-Quellcode:
function lesen(Sender: TObject): TObject;
begin
with sender as TEdit do
begin
Color := farbe;
ReadOnly := True;
BorderStyle := bsNone;
BevelEdges := [beBottom];
BevelInner := bvNone;
BevelKind := bkTile;
end;
end;