[Harima Hario]

Где-то так?

Код:

procedure TForm1.Image_done(Sender: TObject);
begin
if Pos('VSE', Memo.Text) <> 0 then
image1.visible:=true;
end;