[Uniq!]

Если я првильно понял, то когда Edit1 получает по себе "левый клики" необходимо пихнуть туда 100ку.

Код:

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Text:='100';
end;