I am drawing text on TCanvas using TextOut() but I need a different text color. What can I do?

I want to shorten a filename to fit in a TEdit, something like Edit1.Text := MinimizeName(FileName, Edit1.Canvas, Edit1.Width); Unfortunately this doesn't compile because a TEdit does have a Can...